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1. PUPPOSE 



THE PURPOSE OF THE OIDPC FUNCTION TEST IS TO CHECK THE OPERATIC* RV 
THE DICITAL INPUT SECTION UNDER DIRECT PROGRAM CONTROL STORAGE 
PROTECT VIOLATE IS CHECKED FOR PROPER INTERRUPT AND CSW. THE oL IS 
FURTHER CHECKED FOR ITS ABILITY TO RESET. DIGITAL INPUT GROUPS ARE 

CHECKED BTcS^UTT^nrp^r * N ° »"»«-"£« S^ESStJ'Im 
CHECKED BV CUTPUTTING THE PIS* WHENEVER A P.I. IS RECEIVED TUF pku 
KILL BE READ AND SENSED ON ALTERNATE INTERRUPTS. THE PI IS IS ALSO 
CHECKED FOR ITS ABILITY TO RESET. «=""»»' is. ™E PISM IS ALSO 



2. REOUIREMENTS 

2.1 PROGRAM REQUIREMENTS 



A. 



THIS PROGRAM MUST RUN UNDER CONTROL OF THE DIAGNOSTIC MONITOR 



B. PROGRAM EDIT 

THE PROPER EDIT CAROS MUST BE ACDEB AT THE END OF THIS PROGRAM 
DECK. SEE EDIT PROCEDURES IK APPENDIX { PARAGRAPH £|Jy R0GRA " 

2. * EQUIPMENT REQUIREMENTS 



A. 



B. 



C. 



FOR TH^S P pRCGRA ! M° UIRe0 " ™ £ DIAGNGST,C " 0NIT « IS ALSO REQUIRED 
AT LEAST 1 DIGITAL INPUT GROUP AND CI AOAPTER WITH OR WITHOUT 

AT LEAST 1 PROCESS INTERRUPT GROUP AND ADAPTER. 

rCCMBINA E ^ON N C T F R ?HE T T C Wo! UPS ™ " "^ "■"*" ° R V ° L " GE « 

NOTE 

TCc P o°? E rLi NTERRUPT IS KQT AVAILABLE, PROPER EDITING WILL BYPASS 
THE P.I CHECK. SEE APPENDIX PARAGRAPH fc.l. btp*5S 



3.0 OPERATING PROCEDURE 



3.1 



3.2. 



PROGRAM LOADING 

PROCEDURE^ * 01 "* 1 PRCCE00RE AS DESCRIBEO «* TFE DIAGNOSTIC MONITOR USE 

PROGRAM OPERATION 

STANDARD MONITOR OPERATING PROCEDURES APPLY. THESE PROCEDURES ARE 
SUMMARIZED HERE. SEE O.M. USE PRCCEDURE FOR DETAILS. 

1. CLEAR STORAGE. 

2. LOAD DIAGNOSTIC MONITOR. 

3. SELECT MODE OF EXECUTION. 

4. SELECT MONITOR CONTROL OPTION'S. 

5. SELECT PROGRAM OPTIONS FP.DM. 

TABLE PROGRAM CONTROL FUNCTION 

TABLE 1 ROUTINE SELECT FUNCTION 

TAeLE 2 DI GROUP SELECT FUNCTIONS. 

TABLE 3 PISW REAO/SENSE SELECT FUNCTIOH. 

«. INSTRUCT MONITOR TO EXECUTE. 



DATE 
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DI CPC FUNCTION TEST 

TABLE CCNTPCL FUNCTION 
••**»*«**•*«»*»*«*» 

! t r.,e.— „,„ * '* SET FUN CTION CC Iff SENSE/PROGRAM SWITCHES ANO 1. 

• SE^SE/PROGRAN * 2. SET PIO IN SENSE/PRCGRAM SWITCHES 2 THROUGH ?. 
•01234567* 3. SET DESIRED CONTROL OPTIONS IN DATA ENTRY SWITCHES 0-13. 

• • 4. PRESS CONSOLE INTERRUPT. 
•0 0100101* 

* • 

••»•*• »••••*•*.•**,*,**,*,, *»**************,»*»*******»**»****,»„ # ,, # ^ 

• DATA ENTRY SWITCHES » DESCRIPTION « 

* 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 * * 

• w 

* . 1.. TERMINATE PROGRAM * 

* » evPASS DATA PRINTOUTS, IE. D MESSAGES * 

*»***»,**•**•***«**** *****«************»*»********»**»********« # , # „ # *n #t##### * 

TABLE I ROUTINE SELECT FUNCTION 
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1. SET FUNCTION CI TN SENSE/PROGRAK SWITCHES AND 1. 

2. SET PIO IN SEKSE/PROGRAM SWITCHES 2-7. 

3. SET OPTION IN DATA ENTRY SWITCH 15. 

4. PRESS CONSOLE INTERRUPT. 



****** ************* 

* • 

* SENSE/PROGRAM » 
*01234567* 

* * 

•01 IOC 10 M 

* * 

♦a**********.*************** **************** t*****************^,^,,^^^^^^ 

* D*TA ENTRY SWITCHES » DESCRIPT1GN * 

* 1 2 3 4 5 $ 7 8 9 10 11 12 13 14 15 • , 

1..L00P ROUTINE 1 * 

* * 

* NOTE- WITHOUT LOOPING, ROUTINE I WILL BE RUN ONLY ONCE AT THE START CF THE t 

* PROGRAM. ONCE ROUTINE I IS STARTECIT WILL BE CONTINOUSLY LOOPEO ' » 

* AUTOMATICALLY. m 
*••***•****»**«**,*„««»*„ »«♦***»****»«♦*♦*♦*«*♦*»**»*** i^^m^^mm^^^ 



TABLE 2 DI AND FISW GROUP SELECT FUNCTION 



****** 
* 

* SEN 

* 1 
* 

* 1 

****** 
* 

* 1 

* 

* 

* x 

• 

* NOTE 



«**••*•***••* 

• 1 
SE/PRCGRAM * 2 
234567* 3 

* 4 
10 10 1* 

* 
*•«*•*•**»*****« 

DATA ENTRY 
23456789 

C C C 
X X X X X X 



SET FUNCTION 1C IN SENSE/PROGRAM SWITCHES ANO 1. 
SET PIO IN SENSE/PROGRAM SWITCHES 2-7. 
SET SELECTION IN DATA ENTRY SWITCHES. 
PRESS CONSOLE INTERRUPT. 



SWITCHES ♦ 

10 II 12 13 14 IS * 



BESCRIPTION 



***** 



- FOR LOAD AND C 
ADDRESS CC40 A 
*•**•••******•«* 



*********************** ******************** ********,m ##>il 

* 

-■- - ..-.. - , ........ » 

***************** ***»***********************,*»******* # ^ #;# 



1.. SELECT NEXT SEQUENTIAL DI GROUP 
1.. SELECT THE DI GROUP WHOSE AOORESS 
IS XXXXXXX 

C GPER4TI0N, PROGRAM WILL SELECT AND RUN 01 GROUP 
NO THE PISWS WHICH ARE OEFIKED IN THE EDIT FIELO. 
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DI CPC FUNCTION TEST 



TABLE 3 PISH PEAO/SENSE SELECT FUNCTION 



1. SET FUNCTION 11 IN SENSE/PROGRAM SWITCHES AND 1. 

2. SET PIO IN SENSE. PROGRAM SWITCHES 2-T. 

3. SET OPTION IN DATA, ENTRY SWITCH 15. 
«. PRESS CONSOLE INTERRUPT. 



A****************** 

• * 

• SENSE/PRCGR*M * 
♦0 1234567* 

• • 
•1113 3 10 1* 

• • 

• *»•••*•*•*•** »*«****♦«#**«♦«♦*♦****,*♦,***,*,.**,*„***,„,„, ## , # „n # ^„ # ^ ## 

• DATA ENTRY SWITCHES * DESCRIPTION • 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 IS • » 

C..READ PISH * 

1.. SENSE PISH • 

***************************#********************»»*** # » # »» 4:# ^^ # ^ # ^^ ## ^ #<# * 

3.3 PROGRAM HALTS 

THIS PROGRAM HAS NO HALTS. 

3.4 PROGRAM TERMINATION 

A. STANDARD HOMITCR TERMINATION. 

B. TERMINATE PROCSAM SWITCH- USE THIS OPTION WHEN RUNNING IN 
BOOTSTRAP MODE ANO LOADING OF NEXT PROGRAM IS DESIRED. 



PRINTOUTS 



4.1 



DATA MESSAGES 



OGPP 
PiO >\ID RID RAD ACRS OA.TA 

250C CCCl 0002 XXXX XXXX XXXX 



^J? U V NWC * TES WTA READ 0N 1ST RE * D FOLLOWING SPECIFIED DI GROUP 
AOORESS SELECTION. DATA RECEIVED IS SAVED AS A COMPARE WORD FOR 
FOLLOWING READS ON THE SAME REGISTER. 

DGK.P CMP PRSNT 
PIO MID RIO RAC ACRS WORO DATA 

250C DC02 0002 XXXX XXXX XXXX XXXX 

PRINTOUT OCCURS WHENEVER THE DATA JUST READ FROM THE SPECIFIED 
AOORESS IS NOT THE SAME AS THE DATA USED AS THE COKPARE WORD. 
WHENEVER THIS PRINTOUT OCCURS, THE OATA IN&ICATEO AS PRESENT OATA 
WILL BE SAVED AS THE NEK COMPARE WORO. 

PISM READ 
PID MID RIO RAD ACRS PISH SENSE 

2500 CCC3 0002 XXXX XXXX XXXX OOOX 

^^J^L C o^ URS -» E * CH TI * E * "OCESS INTERRUPT IS RECEIVEO FROM THE 
INDICATED PI GROUP. THE PISW INDICATES THE BIT WHICH CAUSED THE 
INTERRUPT THE READ SENSE INDICATOR WILL BE OOOO IF THE OATA WAS READ 
ANO 0CC1 IF THE DATA WIAS SENSEO. REA0IN6 AND SENSING OF THE PISH 
ALTERNATES WITH EACH INTERRUPT. c *• «» ur .ne MM 
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4.? 



ERRCR MESSAGES 



DGRP 
PIO MID RIO RAO AORS OSW 

2500 ECC1 0001 XXXX OC40 XXXX 

MESSAGE INDICATES A LOST INTERRUPT WHEN VIOLATING PROTECTED STORAGE. 
01 GROUP ADDRESS CC40 IS USED DURING THE READ. THE OSH INDICATES THE 
DI STATUS AFTER THE READ. 

DGRP READ SENS 
PIO MID RIO RAO ADRS DATA DATA 

2500 EQ02 0002 XXXX X*XX XXXX XXXX 

DI GROUP READ/SENSE COMPARE ERROR. THE DI GROUP IS READ AND SENSED 
ON EACH PASS OF THE ROUTINE. THE DATA SHOULD BE THE SAME. 

OGFP 

PID MID RIO RAD ACRS OSW 

2500 EC03 0001 XXXX CC4C XXXX 

DI INDICATES BUSY WHILE OPERATING IN DIRECT PROGRAM CONTROL MODE. 

PISW 
PID MID RID RAX ACRS PISW 

250C ECC4 0002 XXXX XXXX XXXX 

THE PISW DID NOT RESET WHEN FEAO OR SENSED. THE PISW IS SENSED 
FOLLOWING A READ CR SENSE TO CHECK FOR RESET. THE PISW GIVEN IS THE 
RESULT OF THIS SENSE. 

DGRP PPCtT ACT 
PIO MID RIO RAC AORS DATA DATA 

2500 ECC5 0C01 XXXX 0C4C FFFF XXXX 

THIS PRINTOUT OCCURS IF, WHILE PUNNING THE STORAGE PROTECT TEST, THE 
PROTECTED AREA IS MODIFIEO EY A READ. THE PROTECTED OATA IS FFFF, 
ANC THE MODIFIED DATA AS INDICATED. 

OGRP LAST 
PIO MID -RIO RAD ADRS DSW DATA 

2500 ECC6 0002 XXXX XXXX XXXX XXXX 

ANY INTERRUPT, OTHER THAN A PROCESS INTERRUPT, THAT OCCURS DURING 
ROUTINE 2 IDPC OPERATION) CONSTITUTES AN ERROR. THE DSW INDICATES 
THE CAUSE CF THE INTERRUPT. LAST DATA, IS THE CONTENTS OF THE READ 
IN AREA. CORP ADDRESS IS THE PRESENT 01 GROUP BEING USED. 
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DGRP 
PIO MID t{tO RAC ADRS DSW 
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2500 EC07 0001 XXXX C04C XXXX 



THE WRONG OSW WAS RECEIVED FOLLOWING A STORAGE PROTECT VIOLATE 

INTERRUPT. 



OGRP 
PID 8,10 RIO RAO ADRS OSH 

2500 ECC8 OOOX XXXX XXXX XXXX 



THIS PRINTOUT OCCURS IF THE OSW FAILED TO RESET AFTER BEING SENSEO 
IN INTERRUPT. THE DSW IS SENSED TWICE, AND IT IS THE RESULT OF THE 

SECOND SENSE THAT APPEARS IN THE MESSAGE. 



COMMENTS. 



THE DIDPC FUNCTION TEST IS HADE UF OF TWO ROUTINES. 
CONTAINS ITS OWN CONTROL. 



EACH ROUTINE 



ROUTINE 1 IS USED TO CHECK STORAGE PROTECT VIOLATION, AND WILL 
NORMALLY BE RUN ONLY ONCE WHEN THE PROGRAM IS INITIALLY EXECUTEO. 
ROUTIME I CAN BE LOOPED IF DESIRED {SEE TABLE 2) BUT THIS OPTION MUST 
BE REQUESTED PRIOR. TO EXECUTING THE PROGRAM- CNCE ROUTIME I IS 
LOOPING, THE LOOP HAY BE TERMINATED BY SETTING ALL DATA ENTRY 
SWITCHES OFF, ANC PLACING FUNCTION 01 PLUS P.I.O. 25 IN THE SEfjSE/ 
PROGRAM SWITCHES AND PRESSING CONSOLE INTERRUPT. AT THE COMPLETION 
OF THE ROUTINE I PASS IN PROGRESS, THE PROGRAM WILL GO TO ROUTINE 2. 

TO CHECK STORAGE PROTECT VIOLATION A TEST KtRD OF FFFF/16 IS STORED 
IN THE READ IN AREA USED BY THE PROGRAM. THE READ IN AREA IS THEN 
STORAGE PROTECTED AND AN XIO READ COMMAND ISSUED TO DI GROUP ADDRESS 
40. IF A S.P.V. INTERRUPT DOES NOT OCCUR, ERROR MESSAGE E001 WILL BE 
PRINTED. IF AN INTERRUPT IS RECEIVED, THE DSW IS CHECKED FOR eiT 1 
BEING ON. FOLLOWING THE INTERRUPT ChECK, THE PROTECTED AREA IS 
CHECKED TO INSURE IT CONTAINS THE TEST WORC FFFF/16. IF IT DOES NOT, 
AN ERROR MESSAGE WILL RESULT. 

ThE STORAGE PROTECT BIT IS CLEARED AT THE END OF ROUTINE I, IN THE 
INITIALIZATION RCUTIKE AND IN THE END ROUTINE. 

ROUTINE 2 IS USED TO CHECK DIGITAL INPUT GROUPS AND PROCESS 
INTERRUPTS. ROUTINE 2 KILL CCKTINOUSLY LOOP UNTIL THE PROGRAM IS 
CEEXECUTEO. 

INPUT DATA CAN BE INSERTED INTO THE DIGITAL INPUT GROUPS AT THE SCREW 
OOWN TERMINATIONS BY MANUALLY SIMULATING CONTACT OPERATION OR VOLTAGE 
CHANGES. PROCESS INTERRUPTS HAY GE INITIATED IN THE SAHE MANNER. 



DIGITAL INPUTS 



ROUTINE 2 WILL BEGIN OPERATION BY READING AND SENSING DI GROUP 
ADDRESS 40 AND PRlNTIKG THE DATA RECEIVED ON THE OUTPUT DEVICE. IF A 
REQUEST FOR A SPECIFIC DI CROUP WAS MADE PRIOR TO PROGRAM EXECUTION, 
IT WILL BE HONORED ON THE SECOND PASS OF THE ROUTINE. ONCE A REQUEST 
IS HONORED, THE ROUTINE WILL CONTINUE TC LOOP WITH THAT REQUEST, 
UNTIL A NEW RECUEST IS RECEIVED. 

WHEN A REQUEST IS RECEIVED, AND A SFECIFIC 01 GROUP ADDRESS IS 
SPECIFIED, THE ADDRESS WILL 6E CHECKED TO INSURE THAT IT IS NOT LESS 
THAN 40 AND NOT GREATER THEN THE ADDRESS ENTERED IN THE 01 EDIT CARO. 
IF THE REQUESTED ADDRESS IS NOT WITHIN THESE LIMITS, THE PROGRAM WILL 
AUTOMATICALLY SELECT DI GROUP ADDRESS 40* 



OATE 

EC NO. 
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WHEN A C! GROUP CHANGE IS REQUESTED, AND AN AOORESS IS NOT SPEC FIED, 
T*F PROGRAM WILL SELECT THE NEXT SECUENTIAL 01 GROUP, PROVIDED ITS 
IoIrFSS IS NOT GREATER THAN THE ADDRESS SPECIFIED IN THE DI EDIT 
CARD IF THE NEXT SEQUENTIAL DI GROUP ADDRESS IS GREATER THAN THE 
""' . f ,P ON THE EDIT CARD, THE PROGRAM WILL SELECT ADDRESS «0. 
iTthIS MANNER A CONTINUOUS LOOP IS CREATED FOR SEQUENTIAL SELECTION 
OF DI GROUPS. 

THE 01 GROUPS ARE BOTH READ ANO SENSED ON EACH PASS OF "OUTINE 2. THE 
REAcInD SENSE DATA IS CHECKED TO INSURE THAT THEY ARE THE SAME. AN 
ERRCR MESSAGE RESULTS IF THEY ARE NOT. 

THE DATA RECEIVED ON THE F IRST «A0 AFTER ™EOI f^J^^TED. 
urn af PRINTED ON THE OUTPUT DEVICE. THE DATA IS PRINltU '"„„,__ 
INDICATE INITUL REGISTER CONTENTS BEFORE ANY MANUAL DATA IS INSERTED 
INTO THE SELECTEO GROUP. 

THF FIRST READ DATA IS ALSO SAVED AS THE INITIAL COMPARE WORD TO 

/" <.P<FOUENT READ DATA IS COMPARED. WHEN THE REGISTER 
CONTENDS CHANGE 15 COMPARE OCCURS, DATA MESSAGE D002 WILL BE 
PRIN^Eo! AND THE DATA CAUSING THE NO COMPARE HILL BE SAVED AS A NEW 
COMpIrE WORD. IN THIS MANNER, THE PROGRAM WILL PRIKT ANY DETECTEP 
CHANGE OF A BIT OR BITS FROM O TO I OR FROM 1 TO 0. 

ANY DI INTERRUPT RECEIVEO DURING RCUTINE 2 WILL RESULT IN AN ERROR 
PRINTOUT. 
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PROCESS INTERRUPT 



PROCESS INTERRUPTS, WHE 
OF THE PISW ASSOCIATED 

READING OR SEN'S INC- IS A 
TO TABLE 3i THE PISK CO 
FOLLOWING EACH PROCESS 
TO CAUSE AN INTERRUPT I 

1MMEDIATLY FOLLOWING TH 
AGAIN TC CHECK FOR PROP 
ERROR MESSAGE. 

IF A PROCESS IHTERRUPT 
SELECTED, OR IF THE SEL 
LEVEL, THE INTERRUPT WI 
THIS WILL BE INDICATED 



N RECEIVED, RESULT IN THE READING OR SENSING 
WITH THE PISW GROUP CAUSING THE IHTERRUPT. 
N OPERATOR SELECT FUNCTION (REFER 
NTENT IS PRINTED ON THE OUTPUT DEVICE 
INTERRUPT RECEIVED. FAILURt OF A PISW GROUP 
S INDICATED BY THE LACK OF A 0003 PRINTOUT. 

E READ OR SENSE GF THE PISW, IT IS SENSED 
ER RESET. FAILURE TO RESET RESULTS IN AN 



OCCURS FROM: A PISW GROUP NOT PRESENTLY 
ECTED PISW GROUP INTERRUPTS TO THE WRONG 
LL BE SERVICED BY THE DIAGNOSTIC MONITOR. 
BY THEMflWITOR PRINTING HESSAGE E009. 

MOTE 



,r ,c on «rMF FCR THE D1DPC PROGRAM! TO INDICATE FALSE PISW CONTENTS 
In MESSAGE DC03 IF ThI FOLLOWING CCNDITICNS OCCUR SIMULTANEOUSLY. 

,,,.» BBn rctc luTFRfiliPTS ARE RECEIVED AT THE SAME TIME. CNE 
U INTERRUPTED BE TeRVKED "y THE DIAG. MONITOR. AND THE OTHER TO 
Bf SERVICED EY THE DIDPC FUNCTION TEST. 

BY THE CIDPC PROGRAM. 

BE SERVICED EY THE CIOPC PROGRAM. 

DUE TO THE MANNER IN WHICH THE DIAG MONITOR MUST "SET THE DM OR 
b.cu nt tMTFRRUPTS IT HANDLES, BOTH PISW'S WILL BE RESET UNLtK 
ThI ABOVE CONDI? ION'S. CONSEQUENTLY, WHEN THE DIDPC "OGRAA 

Services its process interrupt, the pisw will be oooo. and it 

WILL BE INDICATEC AS SOCH IN MESSAGE DC03. 



O 
O 

o 

C) 

o 
o 
o 
o 



o 
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DI-DPC 



6.1 EDIT PROCEDURE " ~ — ~ — ~ ~ 

THE FOLLOWING EDIT PROCEDURE IS FOR CARD INPUT. THE EDIT PROCEDURE FOR PAPER TAPE INPUT IS LOCATED IN THE PAPER TAPE EDIT UTILITY PROGRAM DOCUMENTATION THE PROPER EDIT CARDS 
MUST BE THE LAST CARDS IN THIS PROGRAM DECK. THE FOLLOWING FORMS ARE PROVIDED TO AID IN MANUALLY PREPARING THESE EDIT CARDS OR UPDATING EXISTING EDIT CARDS IF IT IS NECESSARY 
TO PREPARE OR MODIFY EDIT CARDS, FILL IN THE NECESSARY DATA IN THE FORMS PRIOR TO PUNCHING THE CARDS. CARD COLUMNS THAT ARE SHADED SHOULD BE LEFT BLANK. " 

DDEF STANDS FOR DEVICE DEFINITION EDIT FIELD. IT INCLUDES: S. THE INTERRUPT LEVEL ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION 00-17) 

2. THE ILSW SIT POSITION ASSOCIATED WITH THIS DEVICE {USE HEX NOTATION. 0-F)l 



THE LAST EDIT CARD IS THE " END EDIT CARD*. 



THE INFORMATION IN THIS CARD INCLUDES; 



! . AN*E*IN COLUMN 1 



2. THE PID FOR THIS PROGRAM (COL. 2-3). 3- A TERMINATOR WORD OF *FFFF"(COL. 7.50) 




CARD 



CARDS 1 AND 2 



CARD END 
NOTE 1. 



CAUTION: 



J3 TTMTITB 1 -I m i -1 1 m 



CARD SHOULD ALWAYS CONTAIN AT LEAST 3 ENTRIES. THE 1ST ENTRY IS THE Dl DDEF AND THE 2ND IS THE ADDRESS OF THE HIGHEST 01 GROUP AVAILABLE (ADDR ARETo-FfT 
IF PROCESS INTERRUPTS ARE NOT TO BE CHECKED, THEN THE 3RD ENTRY SHOULD BE FFFF, OTHERWISE, PISW DDEF INFORMATION BEGINS WITH THE 3RD ENTRY. [.SEE NOTE 1. 
CARDS 1 AND 2 ARE USED TO ENTER PISW INFORMATION WHEN MORE THAN 9 PISW'S ARE AVAILABLE 
THE DDEF'S START IN ENTRY I AND SHOULD BE IN THE FORMAT SHOWN FOR CARD 1. SEE NOTE !. 
CARD END IS THE " END EDIT CARD". PUNCH EXACTLY AS IS SHOWN. 

SINCE THE PISW EDIT FIELD IS VARIABLE, THE DIDPC PROGRAM REQUIRES A TERMINATOR TO INDICATE THE END OF THIS FIELD; THEREFORE THE ENTRY FOLLOWING THE 
LAST PISW DDEF MUST BE FFFF. 

INSURE THAT THE PISW INTERRUPT LEVELS ENTERED CORRESPOND TO THE INTERRUPT LEVELS EDITED INTO THE DIAGNOSTIC MONITOR. 
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0000 




• 


ORG 


•♦2047 




82 500000 
82500010 






• 




*»*•**•*••**•••»**•• 


82500020 






* 




MONITOR EQUATE TABLE 


82500030 






* 




»tt»tt*»ft»«v»«t> 


82500040 






• 








82500050 


012C 




BEGIN 


EQU 


300 




82 500060 


0120 




START 


EQU 


BEGIN* 1 




8250 00 TO 


012E 




ENO 


EQU 


START*! 




82500080 


012F 




LOG 


EQU 


END*i 




82500090 


0130 




ERROR 


EQU 


L0G*1 




825001CO 


0131 




RECDV 


EQU 


ERROR*! 




82500110 


0132 




RELDV 


EQU 


REGDV*! 




82500120 


0133 




CRCK 


EQU 


RELDV*! 




82500130 






* 




• ••****•**•**•••**«**•**:•• 


82500140 






• 




OIDPC PROGRAM STATUS TABLE 


82500150 






• 




***»«#* «»*****•*»«* *«**»** 


825001&O 






* 








82500179 


07FP 


2500 


PIO 


DC 


/2500 


PROGRAM IB 


S2500183 
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0000 


R20 


DC 





ROUTINE NUMBER 


82500190 


0801 


0000 


R&D 


DC 





ROUTINE ADDRESS 


S250O2OO 


0802 


0000 


SWO 


DC 





FUNCTION 00 ENTRY 


82500210 


0803 


0000 


Stfl 


DC 





FUNCTION CI ENTRY 


82500220 


080* 


0000 


SM2 


DC 





FUNCTION 10 ENTRY 


82500230 


0805 


0000 


£1*3 


DC 





FUNCTION 11 ENTRY 


625002*0 


0806 1 


OftlD 


IPA 


DC 


1N1DI 


INITIALIZATION ADDRS 


82500250 


0807 1 


0A69 


CPA 


DC 


OIDPC 


LOOP PROGRAM ADDRESS 


8 2 SO 0260 


oecs i 


0C8E 


EPA 


DC. 


DIEND 


£f«D PROGRAM ADDRESS 


82500270 


0809 


0000 


HLSCF 


DC 





INTERRUPT SEQ CONTRL 


8250026S 


080A 


0000 




DC 





MAIN LINE SEQ COiiTRL 


S2S00290 


0808 


FFFF 


TERM 

* 


DC 


/FFFF 




82500300 
8250CS1S 
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•♦MONITOR EDIT CONSTANTS** 


S2500320 






• 








82500330 


080C 1 


0C9D 




DC 


PEND 




82500340 


0800 


0000 




OC 







82500350 


080E 


OOCO 




DC 







82500360 


080F 


0000 




DC 







82500370 


0810 


0000 




DC 







62 500380 


0811 


0000 


• 


DC 







82500390 
82500400 






* 




»* 


DIDPC EDIT DATA ** 


82500410 






• 








82500420 


0812 


00 IB 


EDIT 

* 


BSS 


27 


EDIT FIELD 


82500430 
82 500440 






• 




***••******«•«»»*•*** 


82500450 






• 




PI 


INTERRUPT ROUTINES 


825G0460 






• 




*»»♦*»» »»»**»** *»»*** 


62500470 






• 








82500480 


0820 


0000 


OVACO 


OC 





DEVICE ASSIGNMENT 


82500490 


082E 


0000 




DC 





INTERRUPT ENTRY IE 


82500500 


082F 01 


C4000995 




ID 


L PICMN 


SAVE COMMON ROUTINE 


82500510 


0831 


0009 




STO 


ETVOO 


♦ENTRY CONTENTS 


82500520 


0832 


6300 




LDX 


3 


SET PI TABLE POINTER 


82 500530 


0833 Oi 


44000995 




BSI 


L P1CMN 


COMMON ROUTINE CALL SRC 


82500543 


0835 1 


0820 




DC 


OVAOO 




82500550 


0836 


C004 




to 


ETY0O 


RESTORE COMMON RTN. 


82500560 


0837 01 


04000995 




STO 


L PICMN 


•ENTRY ADDRESS 


82500570 


0839 01 


4C80082E 


• 


BSC 


I OVAOO+1 


RETURN TO USER IX 


82500580 
82500590 


083B 


0000 


ETVOO 

• 


DC 





ENTRY CONTENTS HOLD 


82500600 
82500610 


083C 


0000 


OVA01 


DC 





DEVICE ASSIGNMENT 


82500620 


083D 


0000 




DC 





INTERRUPT ENTRY IE 


82500630 


083E 01 


C4000995 




LO 


L PICMN 


SAVE COMMON ROUTINE 


82500640 


0840 


0009 




STO 


ETYOl 


•ENTRY CONTENTS 


82500650 


0841 


6302 




LDX 


3 2 


SET PI TABLE POINTER 


82 500660 


0842 01 


44000995 




BSI 


L PICMN 


COMMON ROUTINE CALL SRC 


82560670 


DATE 


28FEB66 
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IHH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1600 SYSTEM 



Oi DPC FUNCTION TEST 



r I 
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0868 
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DC 
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LD 


L 


PICMN 


0860 
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STO 




ETY04 


086E 


6308 
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086F 01 


44000995 




BSI 


L 
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0869 
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DVA04 


0872 


C004 




LD 
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0873 01 


D4000995 




STO 


L 
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4C800S6A 
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ETY04 
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0877 


0000 


OC 







0878 


0000 


OC 
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DC 







087A 01 


C4000995 




LO 


L 


PICMN 


087C 


0009 




STO 




ETY05 


087D 


630A 




LDX 
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10 


08 7E 01 


44000995 




BSI 


L 


PICMN 


0860 1 


0878 




DC 




0VA05 


0881 


C004 




LD 




ETY05 


0862 01 


04000995 




sro 


L 


PICMN 


0364 01 


4C 800879 
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BSC 


I 


DVA05+1 


0886 


0000 


ETY05 

• 

DVA06 


DC 







0887 


0000 


DC 







0S88 


0000 




OC 







0889 01 


C4000995 




LD 
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PICMN 


0888 


D009 




STO 




ETV06 


088C 


630C 




LDX 
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12 


088D 01 


44000995 




BSI 


L 


PICMN 


086F 1 


0887 




DC 




DVA06 


0890 


COO* 




LD 




ETY06 


0891 01 
DATE 


04000995 
28FEB6* 




STO 


L 


PICMN 


EC NO. 


415120 











RESTORE . OMMON RTN. 

•ENTRY ADDRESS 

RETURN TO USER IX 

ENTRY CONTENTS HOLO 

DEVICE ASSIGNMENT 
INTERRUPT ENTRY IE 

SAVE COMMON ROUTINE 
•ENTRY CONTENTS 
SET PI TABLE POINTER 
COMMON ROUTINE CALL SRC 

RESTORE COMMON RTN. 

•ENTRY ADDRESS 

RETURN TO USER IX 

ENTRY CONTENTS HOLO 

DEVICE ASSIGNMENT 
INTERRUPT ENTRY IE 
SAVE CdKHQN ROUTINE 
•ENTRY CONTENTS 
SET Pi TAdLE POINTER 
COMMON ROUTINE CALL SRC 

RESTORE COMMON RTN. 

♦ENTRY ADDRESS 

RETURN TO USER IX 

ENTRY CONTENTS HOLD 

DEVICE ASSIGNMENT 
INTERRUPT ENTRY IE 
SAVE COMMON ROUTINE 
•ENTRY CONTENTS 
SET PI TABLE POINTER 
COMMON ROUTINE CALL SRC 



RESTORE COMMON RTN. 

♦ENTRY ADDRESS 
RETURN TO USER 

ENTRY CONTENTS HOLO 



IX 



DEVICE ASSIGNMENT 
INTERRUPT ENTRY IE 
SAVE COMMON ROUTINE 
♦ENTRY CONTENTS 
SET PI TABLE POINTER 
COMMON ROUTINE CALL SRC 



RESTORE COMMON RTN. 
•ENTRY ADDRESS 
RETURN TO USER. 

ENTRY CONTENTS HOLD 



IX 



DEVICE ASSIGNMENT 
INTERRUPT ENTRY IE 
SAVE COMMON ROUTINE 
•ENIRY CONTENTS 
SET PI TABLE POINTER 
COMMON MOUT I NE CALL SRC 

RESTORE COMMON RTN. 
•ENTRY ADDRESS 
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82500820 

82500630 

82500840 

82500850 

82 500860 

82500870 

62 500880 
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82500900 

82500910 

82500920 

82500930 

62 500940 

82 500950 

82500960 

82 500970 

82 500980 

82 500990 

82 501000 

82501010 

82501020 

82501030 

82501040 

82501050 

62501060 

82501070 

82501080 

82501090 

82501100 

82501110 

82501120 

62501130 

P2 50 I 140 

82501150 

82501160 

82501170 

82 SOU BO 

82501190 

82501200 

82501210 

82501220 

62501230 

62501240 

62501250 

62501260 

82501270 

62501280 

82501290 

82501300 

82501310 

82501320 

62501330 

62501340 

82501350 
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PART NO. 2196407 
PACE 2 
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44000995 
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0896 
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C004 




LD 
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08A2 01 


4C60089T 


* 
ETY07 
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OC 
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DVA08 
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0000 




DC 
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L 
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0009 
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ETY08 


08AA 


6310 
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3 
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08AS 01 


44000995 




8SI 


L 


PICHN 


06AO 1 


08AS 




OC 




0VA08 


03AE 


C004 




LD 




ETY08 


08AF 01 


04000995 




STO 


L 


PICMN 


0661 01 


4C80Q6A6 


• 
ETY08 


BSC 


I 


DVA08+1 


0683 


0000 


OC 







068* 


0000 


0VA09 


DC 







06B5 


OOOO 




DC 
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06B6 01 


C4000995 




LD 


L 


PICMN 


0888 


0009 




STO 




ETY09 


0889 


6312 




LDX 
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08BA 01 


44000995 




BSI 


L 


PICMN 


08BC 1 


0884 
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OVA09 


08 SO 


CC04 




LO 




ETY09 


08bE 01 


D4000995 




STO 
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PICMN 


08CO 01 
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BSC 


I 
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01C2 
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ETY09 
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OVA10 
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08C3 
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08C4 


0000 
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08C5 01 


C4000995 
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L 


PICMN 


08C7 


0009 




STO 




ETY10 


08C8 


6314 




LOX 


3 


20 


08C9 01 


44000995 




BSI 


L 


PICMN 


08CB 1 


08C3 




X 




DVA10 


06CC 


C004 




LD 




ETY10 


08C0 01 


04000995 




STO 
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PICMN 


08CF 01 


4C 800804 


• 
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BSC 


J 


DVA10+1 


0801 


0000 
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0802 


0000 


0VA11 
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0803 


0000 




OC 







0804 01 


C4000995 




LD 


L 


PICHN 


0806 


0009 




STO 




EIYll 


0807 


6316 




LOX 


3 


22 


0808 01 


44000995 




BSI 


L 


PICMN 


08DA 1 


0802 




DC 




0VA11 


080B 


C004 




LD 




ETYU 


oeoc oi 


04000995 




STO 


L 


PICHN 


OBOE 01 


4C 800803 





BSC 


i 


DVAU + 1 


08E0 


0000 


ETVll 


OC 







DATE 


2BFEB66 










EC NO. 


•415120 











RETURN TO USER 


IX 


82501360 
82501370 


ENTRY CONTENTS HOLD 




82501380 
82501390 


DEVICE ASSIGNMENT 




82 501400 


INTERRUPT ENTRY 


IE 


82501410 


SAVE COMMON ROUTINE 




82501420 


•ENTRY CONTENTS 




82501430 


SET PI TABLE POINTER 




83501440 


COMMON ROUTINE CALL 


SRC 


82501450 
82501460 


RESTORE COMMON RTN. 




82501470 


•ENTRY ADDRESS 




82 5014B0 


RETURN TO USER 


IX 


82 501490 
82501500 


ENTRY CONTENTS HOLO 




82501510 
82501520 


DEVICE ASSIGNMENT 




62 501530 


INTERRUPT ENTRY 


!£ 


82 501540 


SAVE COMMON ROUTINE 




62501550 


♦ENTRY CONTENTS 




82 501560 


SET PI TABLE POINTER 




82501570 


COMMON ROUTINE CALL 


S*C 


82501580 
82 501590 


RESTORE COMMON RTN. 




32501600 


•ENTRY ADDRESS 




82 501610 


RETURN TO USER 


IX 


82501620 

82501630 


ENTRY CONTENTS HOLD 




82501640 
82501650 


DEVICE ASSIGNMENT 




82501660 


INTERRUPT ENTRY 


is 


82501670 


SAVE COMMON ROUTINE 




82501680 


•ENTRY CONTENTS 




62 501690 


SET PI TABLE POINTER 




62501700 


COMMON ROUTINE CALL 


SRC 


82501710 
82 501720 


RESTORE COMMON RTN. 




82 501730 


•ENTRY ADDRESS 




82501740 


RETURN TO USER 


IX 


82501750 
82 501760 


ENTRY CONTENTS HOLD 




82501770 
82501780 


DEVICE ASSIGNMENT 




82501790 


INTERRUPT ENTRY 


IE 


82501800 


SAVE COMMON ROUTINE 




82501810 


•ENTRY CONTENTS 




82501820 


SET PI TABLE POINTER 




82 501830 


COMMON ROUTINE CALL 


SRC 


82501840 
82501850 


RESTORE COMMON RTN. 




62501860 


•ENTRY ADDRESS 




82501870 


RETURN TO USER 


IX 


62 501889 
82501890 


ENTRY CONTENTS HOLD 




82501900 
e250l910 


DEVICE ASSIGNMENT 




82501920 


INTERRUPT ENTRY 


IE 


82502930 


SAVE COMMON ROUTINE 




82501940 


•ENTRY CONTENTS 




82501950 


SET PI TABLE POINTER 




82501960 


COMMON ROUTINE CALL 


SRC 


82501970 
82501980 


RESTORE COMMON RTN. 




82501990 


•ENTRY ADDRESS 




82502000 


RETURN TO USER 


IX 


82502010 
82502020 


ENTRY CONTENTS HOLO 




62502030 
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DC 




0VA12 
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LD 
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L 
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ETY13 


08F5 


631A 




LDX 
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PICMN 
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0000 


ETY15 
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0VA16 


DC 







091E 


0000 




DC 







091F 01 


C4000995 




LO 


I, 


PICMN 


0921 


0009 




STO 




ETY16 


0922 


6320 




LDX 


3 


32 


0923 01 


44000995 




BSI 


L 


PI CKN 


0925 I 


09 ID 




OC 




OVAitt 


0926 


CO 04 




LD 




ETY16 


0927 01 


0400099S 




STO 


L 


PICMN 


0929 01 


4C80091E 


• 
ETV16 

• 
0VA17 


BSC 
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0VA16*1 


0928 


0000 


DC 







092C 


0000 


DC 







0920 
OATE 


0000 

28FEB66 




DC 
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82502040 


DEVICE ASSIGNMENT 




62502050 


INTERRUPT ENTRY 


IE 


82502060 


SAVE COMMON ROUTINE 




82502070 


•ENTRY CONTENTS 




82502080 


SET PI TABLE POINTER 




82 502090 


COMMON ROUTINE CALL 


SRC 


82502100 
82502110 


RESTORE COMMON RTN. 




82502120 


•ENTRY ADDRESS 




82502130 


RETURN TO USER 


IX 


82502140 
82 502150 


ENTRY CONTENTS HOLD 




82 502160 
82 502170 


DEVICE ASSIGNMENT 




62 502160 


INTERRUPT ENTRY 


IE 


82 502190 


SAVE COMMON ROUTINE 




82502200 


•ENTRY CONTENTS 




82502210 


SET PI TABLE POINTER 




62502220 


COMMON ROUTINE CALL 


SRC 


82502230 
82 502240 


RESTORE COMMON RTN. 




82 502250 


•ENTRY ADDRESS 




62502260 


RETURN TQ USER 


IK 


82502270 
82502280 


ENTRY CONTENTS HOLO 




82502290 
82502300 


DEVICE ASSIGNMENT 




82 502310 


INTERRUPT ENTRY 


IE 


82502320 


SAVE COMMON ROUTINE 




82502330 


•ENTRY CONTENTS 




82502340 


SET PI TABLE POINTER 




62502350 


COMMON ROUTINE CALL 


SRC 


62502360 
62502370 


RESTORE COMMON RTN. 




82502360 


•ENTRY ADDRESS 




82502390 


RETURN 70 USER 


IX 


82 502400 
82502410 


ENTRY CONTENTS HOLD 




62502420 
82502430 


DEVICE ASSIGNMENT 




82 502440 


INTERRUPT ENTRY 


IE 


62502450 


SAVE COMMON ROUTINE 




82502460 


•ENTRY CONTENTS 




82 502470 


SET PI TABLE POINTER 




82 502460 


COMMON ROUTINE CALL 


SRC 


82502490 
62502500 


RESTORE COMMON RTN* 




82502510 


•ENTRY ADDRESS 




82502520 


RETURN TO USER 


IX 


82502530 
82502540 


ENTRY CONTENTS HOLO 




82502550 
82 502560 


DEVICE ASSIGNMENT 




82 502570 


INTERRUPT ENTRY 


IE 


82502560 


SAVE COMMON ROUTINE 




82502590 


•ENTRY CONTENTS 




82502600 


SET PI TABLE POINTER 




82502610 


COMMON ROUTINE CALL 


SRC 


82502620 
62 5U2630 


RESTORE COMMON RTN. 




82 502640 


•ENTRY ADDRESS 




82502650 


RETURN TO USER 


IX 


82 502660 
62502670 


ENTRY CONTENTS HOLO 




82502660 


» 




82 502690 


DEVICE ASSIGNMENT 




62502700 


INTERRUPT ENTRY 


IE 


82502710 
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STO 


L 


PICMN 


094? 01 4C80093C 


* 
ETYii 


8SC 


I 


DVA16*! 


0949 0000 


i DC 




8 


094A 0000 


DVA19 DC 







09« 0000 




DC 







094C 01 C4000995 




to 


I 


PICMN 


094E 0009 




STO 




ETY19 


094F 6326 




LDX 


3 


33 


0950 01 44000995 




BSI 


L 


PICMN 


0952 1 094A 




DC 




3VA19 


0953 C004 




LD 




ETY19 


0954 01 04000995 




STO 


L 


PICMN 


0956 01 4C80094B 


* 

ETU9 

* 

DVA20 


BSC 


1 


DVA19*1 


0958 0000 


DC 







0959 0000 


DC 







095A 0000 




DC 







C95B 01 C4000995 




LD 


L 


PICMN 


0950 0009 




STO 




ETY20 


095E 6328 




LDX 


3 


40 


095F 01 44000995 




BSI 


L 


PICMN 


0961 1 0959 




DC 




0VA20 


0962 C004 




LC 




ETY20 


0963 01 04000995 




svo 


L 


PICMN 


0965 01 4C80095A 


• 

ETY20 
• 
DVA21 


BSC 


I 


DVA2Q+1 


096? 0000 


DC 







0966 0000 


DC 







0969 0000 




DC 







096A 01 C4000995 




LD 


L 


PICMN 


096C 0009 




STO 




ETY21 


0960 632A 




LDX 


•y 


42 


096E 01 44000995 




BSI 


L 


PICMN 


0970 1 0963 




DC 




0VA21 


0971 C004 




LD 




ETY21 


0972 01 04000995 




STO 


L 


PICMN 


0974 01 4C8U0969 


• 
ETV21 

• 
DVA22 


BSC 


I 


DVA21*! 


0976 0000 


DC 







0977 0000 


DC 







0978 0000 




DC 







0979 01 C4000995 




LO 


I 


PICMN 


0978 0009 




STO 




ETY22 


097C 632C 




LOX 


3 


44 


DATE 28FEB66 










EC NO. 415120 








• 



SAVE COMMON ROUTINE 
•ENTRY CONTENTS 
SET PI TABLE POINTER 
COMMON ROUTINE CALL SRC 

RESTORE COMMON RTN. 

•ENTRY ADDRESS 

RETURN TO USER IX 

ENTRY CONTENTS HOLD 

DEVICE ASSIGNMENT 
INTERRUPT ENTRY IE 
SAVE COMMON ROUTINE 
•ENTRY CONTENTS 
SET PI TABLE POINTER 
COMMON ROUTINE CALL SRC 

RESTORE COMMON RTN, 

•ENTRY ADDRESS 

RETURN TO USER IX 

ENTRY CONTENTS HOLD 

DEVICE ASSIGNMENT 
INTERRUPT ENTRY IB 

SAVE COMMON ROUTINE 
•ENTRY CONTENTS 
SET PI TABLE POINTER 
COMMON ROUTINE CALL SRC 

RESTORE COMMON RTN. 

•E^TRY ADDRESS 

RETURN TO USER * IX 

ENTRY CONTENTS HOLD 

DEVICE ASSIGNMENT 
INTERRUPT ENTRY IE 
SAVE COMMON ROUTINE 
•ENTRY CONTENTS 
SET PI TABLE POINTER 
COMMON ROUTINE CALL SRC 

RESTORE COMMON RTN. 

*ENTRY ADDRESS 

RETURN TO USER IX 

ENTRY CONTENTS HOLD 

DEVICE ASSIGNMENT 
INTERRUPT ENTRY IE 
SAVE COMMON ROUTINE 
•ENTRY CONTENTS 
SET PI TABLE POINTER 
COMMON ROUTINE CALL SRC 

RESTORE COMMON RTN. 

•ENTRY ADDRESS 

RETURN TO USER IX 

ENTRY CONTENTS HOLD 

DEVICE ASSIGNMENT 
INTERRUPT ENTRY IE 
SAVE COMMON ROUTINE 
•ENTRY CONTENTS 
SET PI TABLE POINTER 



PART NO. 2196407 
PAGE 3 



82502720 

82 502730 

82 502740 

82502750 

62502760 

82502770 

82502780 

825C2790 

62 502800 

62 502810 

62502820 

82 502830 

82502640 

82502850 

82502860 

82 502870 

82502880 

82 502890 

82502900 

82502910 

82 502920 

82502938 

62 502940 

82502950 

82502969 

82502970 

62502960 

82502990 

82 503000 

82503010 

82503020 

82 503030 

82503040 

82503050 

82503060 

8J503070 

82 503080 

82 503090 

82503100 

62503110 

62503120 

82 503130 

82503140 

82503150 

82503160 

82503170 

82 5031 80 

62 503190 

82503200 

82503210 

82503220 

82503230 

82503240 

82 503250 

82 503260 

82503270- 

82503280 

82503290 

82503300 

82 503310 

62503320 

82503330 

82503340 

82503350 

82503360 

82503370 

82 503380 

82503390 



l.l 



v. 



„1 



s X 



PROG 10 
PAGE 



r 

r • 



0825-0 






IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
01 OPC FUNCTION TEST 



0970 Oi 44000995 
097F 1 0977 

0980 C004 

0981 01 04000995 
0983 01 4C800978 

0985 0000 



0986 
098? 
0968 
098A 
09 88 
09 gC 
09SE 
09SF 
0990 
0992 



0000 

0000 

01 C4000995 
D009 

632E 

01 44000995 
1 0986 

C004 

01 D4000995 
01 4C80096? 



0994 0000 



Oi 



00 



01 






0995 

0996 01 

0998 

0999 
099A 
0993 00 
099Q 
099E.O 
099F 01 
09AI 
09A2 
C9A4 
09A5 
09A7 01 
09A9 01 
09AB 00 
09AD 01 
09AF 
0961 
0982 
09B3 
0984 01 
09B6 01 
09B8 01 
09BA 
094B 01 
09B0 01 
09BF 
09C1 
09C3 01 
09C5 
09C6 
09C7 01 
09C9 01 
09CB 01 
09CD 01 
09CF 01 
0901 01 

0904 



DATE 
EC NO. 



01 
Oi 



0000 

C4800995 

DO 00 

DO 12 

0001 

C4000000 

1008 

1808 

D70009D4 

7301 

C4000AF0 

1009 

ECOOOOOO 

D4000BO? 

C4000AF7 

ECOOOOOO 

D4000B09 

C4000805 

4804 

70C8 

1010 

D4000AFE 

0C000E06 

C40QOAF3 

7006 

C4000AFO 

D4000AFE 

OCO00BO8 

D70009D4 

OCO00BO8 

4818 

7006 

D4C00AF4 

C7000903 

D4000AF5 

74 010 AFC 

74010995 

4C 800995 

0030 



28FEB66 
415120 



BSI 
DC 
LO 
STO 

BSC 



PICMN 

0VA22 
ETY22 

PICMN 
DVA22+1 



COMhQN R JTINE CALL SRC 



DC 



ETY22 

• 

DVA23 DC 
DC 
LD 
STO 
LOX 
BSI 
DC 
LD 
STO 
BSC 

ETY23 DC 

* 
* 
* 

• 

PICMN DC 
LO 
STO 
STO 

sro 

LD 
SLA 
SRA 
STO 
MOX 
LD 
SLA 
A OR 

STO 
LO 

e or 

STO 

LD 

BSC 

MOX 

SLA 

STO 

XI 

LD 

MOX 

LD 

STO 

XIO 

STO 

XIO 

BSC 

MOX 

STO 

LD 

STO 

MDX 

MOX 

BSC 



RESTORE COMMON RTN. 
•ENTRY ADDRESS 
RETURN TO USER 

ENTRY CONTENTS HOLD 



IX 






L PICMN 

ETY23 
3 46 
L PICMN 

DVA23 

ETY23 
L PICMN 
I DVA23*1 



DEVICE ASSIGNMENT 
INTERRUPT ENTRY IE 

SAVE COMMON ROUTINE 
•ENTRY CONTENTS 
SET PI TABLE POINTER 
COMMON ROUTINE CALL SRC 

RESTORE COMMON RTN. 

•ENTRY ADDRESS 

RETURN TO USER IX 

ENTKY CONTENTS HOLO 



PROCESS INTERRUPT COMMON 
INTERRUPT ROUTINE 



PICM1 



PICM2 



e 

I PICMN 

A* I 

B*l 

**1 
L 

8 

e 

L3 PITBL 
3 1 

L ONE 

9 



piRon 

SENSE 



PISN*1 

SH3 

E 

PICMi 

16 
L RDSN 
L PIRD 
L PI1 

PICM2 
L ONE 
i RDSN 
L PISN 
L3 PITBL 
L PISN 



•♦6 

L PI2 

L3 PITBL-1 



ADDRS 
INT,1 
PICMN.1 
PICMN 



PITBL BSS E 48 



SUBROUTINE E^TRY SE 

GET OVA ADDRESS 



SET INTERRUPTING 
•PISH ADDRESS IN TBL 



ADD 1 TO TABLE INDEX 
BUILO PISW READ 

•COMMAND 



BUILO PISW SENSE 
•COMMAND 

CHECK IF READ C.l SNS 
SKIP IF READ 

ROSN INDICATOR TO 
•READ 
READ PISH 
GET DATA READ 

P.O/SN INDICATOR TO 

"SENSE 

SENSE PISH 

PISH TO PI TABLE 

CK IF PISH RESET 

SKIP IF NO RESET 

SAVE PISH. 

GET FAILING ADDRESS 

SAVE ADDRESS 

SET INTERRUPT INDCTR 

MODIFY RETURN 

RETURN TO USER SX 

PI DATA TABLE 



**•*•*****•••••»»•#* 
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82503400 
82503410 
62503420 
82503430 

82 503440 

82503450 

62503460 

82503470 

82 503480 

82 503490 

82503500 

82 503510 

82 503520 

82503530 

82503540 

62503550 

82503560 

82503570 

82503580 

82503590 

82 503600 

82 503610 

82 503620 

825C3630 

8250364© 

62503650 

62 503660 

82503670 

82 503680 

82 503690 

62 503700 

82503710 

82 503720 

82503730 

82503740 

82 503750 

62503760 

82503770 

82503780 

82 503790 

82 503800 

82503810 

82503820 

82 503830 

62503840 

62503850 

82 503660 

82 503870 

82 503880 

62503890 

82503900 

82503910 

82503920 

82 503930 

82 503940 

82503950 

82 503960 

82503970 

82503980 

62503990 

82504000 

82504010 

62504020 

82504030 

82 504040 

62 504050 

82 504060 

82504070 
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PART NO. 219640? 
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ISM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1600 SYSTEM 



DI DPC FUNCTION TEST 



PART NO. 2196407 
PAGE 4* 









• 






01 


INTERRUPT ROUTINE 


825040 80 












• 






«•****•*•*»*•*»*»»•» 


82504090 










• 










82504100 




0A04 





0000 


01 INT 


DC 







AREA CODE AND MOO 


82504110 




0A05 





0000 




OC 







IE 


82 504120 




0AO6 


01 


OC000800 




XI 


L 


DISH 


READ OSH AND SAVE 


82504130 




0AC8 


01 


04000AFA 




STO 


L 


DSU 




62504140 




OAOA 


01 


OC 000800 




XIO 


L 


DISH 


SENSE AGAIN FOR DSU 


82504150 




OAOC 


01 


04000AFB 




STO 


L 


DStfl 


•RESET CHECK 


82 504160 




OAOE 


01 


74000AFF 




HOX 


L 


SPVSWtO 


CHECK IF RTN 1 


82504170 




0A10 





7003 


• 


KOX 




DIN* 




82 504180 
82 504190 


i 








• 






»* 


NOT RTN 1 ** 


82504200 












• 










82504210 






0A11 


01 


67000A32 




U)X 


L3 


DIER 


SET MLSCF RETURN 


82 504220 






0A13 





7002 


* 
• 


MOX 




•» 


ROUTINE 1 »» 


82504230 
8250424© 
82504250 


: J 










* 










82504260 




0A14 


01 


67Q00A4E 


DIN1 


I OX 


L3 


OISPV 


SET MLSCF RETURN 


82S0427S 




0A16 


01 


6F 000809 


• 


STX 


L3 


MLSCF 




82 5C 42 80 
82504290 




0A18 


Oi 


4C800A05 


DIN.2 

* 


8SC 


I 


diint#i 


EXIT 


82504300 

S250431S 


o 








* 






***#*******»# 


82504320 










• 






BEGIN ROUTINE 


82504330 


o 








* 






**•«**«*•*»** 


82504340 










• 










82504350 


_ 


0A1A 


00 


44 80012C 


DIBGN 


BSI 


• 


BEGIN 


XFER TO HON BEGIN 


82504360 


u > 


0A1C 


1 


07FF 


* 


OC 




P1D 


*RTN KITH PIO ADORS 


82504370 

82 504380 










• 






«»****•**»***•*•»*»•*• 


82 504390 


\_ : 








• 






INI 


TIALIZATION ROUTINE 


82 504400 










• 






»*«•*•****•#*****»»•** 


82504410 










* 










82504420 


■"* f 


0A1D 





0000 


IN10I 


OC 







SE 


82504430 




0A1E 


01 


C4000AEE 




LD 


L 


DISRT 


SET STARTING DI GRP 


82 504440 


A 


0A20 


01 


04000AEF 




STO 


L 


DIREG 


•ADORS ID 0040 HEX 


82 504450 


.-' 


0A22 





1C10 




SLA 




16 


CLEAR PIS* RESET 


82 504460 




0A23 


01 


04000AF4 




STO 


L 


PI2 


♦CHECK HOLD LOCATION 


82504470 


— 


0A25 





6130 




LOX 


1 


48 


CLEAR PI PRINT 


82504480 


< ! 1 


0A26 


01 


OS000903 




STO 


LI 


PITBL-1 


♦DATA TABLE 


82504490 




0A28 





71FF 




MDX 


1 


-1 




82504500 


^ 


0A29 





70FC 




MOX 




*-4 




82504510 




0A2A 





2C40 




DC 




/2C40 


CLEAR STORAGE PROTCT 


82504520 




0A2B 


1 


OAFS 




DC 




DU 


•AREA 


82504530 


_ ! 


0A2C 


01 


C4000B07 




LD 


L 


LPA 


SET VP PROGRAM 


82504540 


! '■ ■ I 


0A2E 


01 


04000809 




STO 


L 


MLSCF 


•RETURN 


82504550 




0A30 


01 


4C600A10 


* 


6SC 


I 


1NIDI 


RETURN TO MONITOR SX 


62504560 
82504570 


.- 














* *#**#**»»»»* *#*#*»**** 


82504580 
















DIDPC MAIN LINE PROGRAM 


82504590 
















•*»***•»*#**••*•••*•*•• 


62504600 




















82504610 




















82504620 
















** 


ERROR INTRP RETURN •* 


62504630 
82504640 




0A32 


01 


C4000AEF 


01ER 


LD 


L 


DIREG 


SET GRP ADDRESS IN 


82504650 




0A34 


01 


04000C8A 




STO 


L 


MESAG»3 


•MESSAGE 


62504660 


: * 


0A36 


01 


C40GOAFB 




LO 


L 


DSM1 


CHECK IF DSW RESET 


82 504670 




0A38 


01 


D40Q0C6B 




STO 


L 


HESAG+4 




82504660 




0A3A 





4818 




BSC 




♦- 




82 504690 


i 1 t 


0A3B 





7004 


• 


HOX 




0IER1 




62 504700 
62504710 










»**»**»****»»»»»»##***•♦♦♦♦*»*♦♦•♦•»»*•♦•♦*»• 


82504720 


' : 


0A3C 


01 


44000C46 




BSI 


L 


LOGER 


GO PRINT ERROR 6 SRC 


62504730 


' 


0A3E 





0002 




OC 




2 


WORD COUNT 


82504740 


>*■ ■». 


0A3F 





EOOB 




OC 




/E006 


MESSAGE ID 


82 504"7$0 


) 


DATE 




28FEB6* 












PROG ID 0825-0 


o ' •> 


EC NO. 


•415120 












PAGE * 






















n 


*> 



♦•«*••♦•♦♦♦♦•••••••*••*♦••*••»••••'•••••«•••• 



CA40 01 C4000AFA 
0A42 01 D4000C8B 
0A4A 01 C4000AF8 
0A46 01 D4000C8C 



0A48 01 44000C48 
0A4A 0003 
GA4S E006 



0A4C 01 4C000B50 



0A4E 01 C4000AEE 
0A50 01 04000C8A 
0A52 01 C4000AFS 
0A54 01 D4000C8S 



0A56 
0A57 



4818 
7004 



0A58 01 44000C48 
0A5A 0002 
0A5B EOOB 



0A5C 01 C4000AFA 
0A5E 01 D40Q0C6S 
0A60 01 F4000B00 
CA62 4818 
CA63 C 706S 



0A64 01 
0A&6 
0A67 



4400CC4B 
0002 

E007 



0A68 7060 



0IER1 LO L DSU 

STO L MESAG«4 

LO L Oil 

STO L MESAG*5 



SET OSW IN MESSAGE 

SET LAST READ DATA 
•IN MESSAGE 



• ••»••»•*»••*• »»*»♦» ***ji** *»»♦*» **♦*•♦ »»♦»•»• 

BSI L _GGER PRINT ERROR 6 SRC 

DC 3 WORD COUNT 

OC /E006 MESSAGE ID 

*•»♦♦♦♦♦*«•*•••♦*♦♦***••'••♦*♦♦•♦♦♦♦♦••••••••• 

• 

0106*6 



•• SPV INTRP RETURN •• 

DiSRT GRP ADDRS TO MESSAGE 

MESAG*3 

0SW1 DSU 1ESE? KOftD 

MESAG*4 *T0 MESSAGE 

*- SKIP IF NOT ZERO 

DISP1 



BSC L 

• 

OISPV LO L 

STO L 

LD L 

STO L 

BSC 

MDX 
• 

BSI L LOGER PRINT ERROR B SRC 

DC Z WORD COUNT 

OC /EOQS MESSAGE 10 

• 

0ISP1 LD L DSW CHECK FOR PROPER DS* 

STO L MESAG*4 # *DSW BIT OK SPV 
EOft L DISkt 

BSC ♦- 

MDX ME 

• 
*&»**#*»•♦♦♦•«•*•♦•♦•♦*•**•♦•••*•••••♦•♦••••• 

BSI L LOGER GO PRINT ERROR 7 SRC 

OC 2 WORD COUNT 

DC /E007 

*»******«»***»****»*»*♦*****♦»***♦•*••******* 

KOX DIE 

* 
* 



•• BUILD PROCESS INTRPT •• 
»• RES AND RELEASE CALL •* 



0A69 





6300 


DIDPC LDX 


3 





0A6A 


01 


C7000814 


LD 


L3 


EDIT*2 


0A6C 


01 


F4000B04 


EOR 


L 


01 SN 


0A6E 





4818 


BSC 




♦~ 


0A6F 





7002 


HOX 




•♦2 


0A7O 





7301 


KDX 


3 


1 


0A71 





70F8 


KOX 
• 

STX 




DIDPC*! 


Q&n 





66 OF 


3 


OHO*! 


04 73 





68 10 


STX 


3 


0110*3 


0A74 





7303 


MOX 


i 


3 


0A75 


01 


C4000C34 


LO 


L 


RLEXT-3 


0A77 


01 


07000C1V 


sro 


L3 


PIRLD 


0AT9 


01 


C4000C35 


LO 


L 


RLEXT-2 


0A7B 


Oi 


D7000C1A 


STO 


Li 


URL 0*1 


0A73 


01 


C4000C36 


LD 


L 


RLEXT-1 


UA7F 


01 


D7000C1B 


STO 


L3 


PIRLD+2 


0A81 


00 


67000000 


0110 LOX 


L3 





0A83 


00 


77000000 


MOX 


L3 





0A85 





7304 


MOX 


3 


4 


0A86 


01 


C4000C11 


LD 


L 


RQEXT-3 


DATE 




28FEB6* 








EC NO. 


415120 









INITIALIZE INDEX 
GET PI EDIT ENTRY 
CHECK IF TERMINATOR 
SKIP IF NOT TERM 
TERM FOUND BRANCH 
MODIFY INDEX 
CHECK NEXT ENTRY 

SAVE INDEX SETTING 

MODIFY IX TO BUILD 
•PI RELEASE CALL 
ADDRS TERM TO RLS CL 
SET BRANCH 1NSTRUCTN 
♦AT END OF RELEASE 
•CALL 

RESTORE ORG VALUE 
MODIFY BY ORG VALUE 

ADDRESS TERN TO 



82504760 
82504770 

62 504780 
82504 790 
82504600 
82504610 
82504320 
62504830 
62504840 
62504650 
82 504860 
82 504870 
62504880 
82504890 
62504900 
82504910 
82 504920 
82 504930 
82504940 
82504950 
82 504960 
82504970 
82504980 
82 504990 
82 505000 
8250 5010 
82505020 
82505030 
82505040 
82 505050 
82 505060 
82505070 
62505080 
82 50 5C 90 
82505100 
82505110 
82505120 
82505130 
82505140 
82505150 
82 505160 
82505170 
82505180 
82 505190 
82505200 
B25CS210 
82505220 
82505230 
82505240 
82505250 
82505260 
82505270 
82505280 
82505290 
82505300 
82505310 
825053*0 
82505330 
82505340 
82 505350 
82505360 
825C5370 
82 50 53 BO 
82505390 
82505400 
82505410 
62505420 
82505490 
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PART NO. 2194,40? 
PACE $ 
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0A88 01 07000800 
0A8A 01 C4000C12 
0A8C 01 0700090E 
0A8E 01 C4000C19 
0A9O 01 0700OS0F 



0A92 C8S9 
0A93 01 DC 000800 



0A9S 01 4400DBC2 



0A97 01 74010AFF 



0A99 

0A9A 1 

0A9B 01 

0A9D 

0A9E 

0A9F 

OAAO 

0AA1 

0AA2 

0AA3 

OAM 

0AA5 

0AA6 

0AA7 

0AA3 














1 



2C40 

0&F8 

C4000A04 

E859 

0044 

8050 

i>06O 

904E 

E053 

E84B 

D05E 

COSE 

0051 

2C41 

0AF8 



0AA9 0856 

OAAA 4804 

CAAB 7001 

OAAC 700C 



OAAD 01 D400OC8B 
OAAF C03E 
CABO 01 D4000C8A 



0A82 01 440COC48 
0A84 0002 
0AB5 E003 



0AB6 01 44000C39 



OABS 70F0 



0AB9 6302 
OABA 0847 



STO L3 PI ROD 

ID L RQEXT-2 

STC L3 PlRQD*l 

LD L RQEXT-l 

STO L3 PIRQD*2 



•REQUEST CALL 
SET BRANCH INSTRUCTN 
♦AT END OF REQUEST 
♦ CALL 






RTOl LOD 

STO L 



**•*••«**»******•**•**•*•* 

RTN01 TEST STG PRTCT VIOLT 

****•*********»*»***.***»** 

RID01 ROUTINE NUMBER AND 

RIO ♦AOORESS TO PST 



********************************************* 

BSI L OtRQO GO REQUEST 01 SRC 

•A******************************************* 

SPVSW.l SET STG PROT SW 



KOX 
01 OA DC 

oc 

LD 

OR 

STO 

A 

STO 

S 

AND 

OR 

STO 

LD 

STO 

DC 

DC 



♦» 8UILD DI RD/SN CMMAND** 



/2C40 
Oil 

oi in: 

SENSE 

DISN+i 

ONE 

DISW+l 

ONE 

READ 

01 REG 

DIRD+1 

01 SN 

Oil 

/2C41 

DI1 



INSURE 10 AREA NOT 
*S70RAGE PROTECTED 
DI GRP AREA CODE 

DI GRP SENSE CNMAN0 



DI READ COMMAND 
SET CHECK WORD IN 
♦READ IN AREA 
STORAGE PROTECT 
♦READ IN AREA 



DIC 



* 



XI 
BSC 
MDX 
MDX 



STO 

LD 

STO 



»» CHECK IF DI BUSY *» 

DISW SENSE DSW 

E SKIP IF NOT BUSY 

*+l SUSY 

010 NOT BUSY 

** DI BUSY ERROR 3 »* 



MESAS+4 
D1SRT 
ME SAGO 



DSW TO MESSAGE 
REG AODRS TO MSG 



BSI L LOGER GO PRINT ERROR 3 SRC 
OC 2 WORD COUNT 

DC /E003 MESSAGE ID 
********************************************** 

********************************************* 

BSI L KLS PROGRAM RELEASE SRC 

************ »**»»»t**»*t»t»H*£»S«»Ht ******* 

MDX OK TRY AGAIN 

• »»VIOLATE PROTECTED STG** 

010 LOX 3 2 -OELAY INDEX 

X10 DIRO READ 01 

********************************************* 



OATE 
EC NO. 



28FEB66 
415120 



8 2 50 5440 

82505450 

82 505460 

82505470 

82505480 

82505490 

82505500 

82505510 

82505520 

82505530 

82505540 

82505550 

82505560 

82505570 

82505580 

82505590 

82505600 

82505610 

82505620 

8250 5630 

82505640 

825056 50 

82505660 

62 505670 

62 505680 

82 505690 

82505700 

S250571O 

82 505720 

82505730 

82 505740 

82 50575C 

82 505760 

82505770 

82 505780 

82505790 

82505800 

62 505810 

82505820 

82505830 

82505840 

32505850 

82505860 

82505870 

82 505680 

82 505890 

82505900 

82505910 

82505920 

62 505930 

82505940 

82505950 

82 505960 

82 505970 

62505989 

82505990 

82 506000 

82506010 

62506020 

82506030 

82506040 

62506050 

82 506060 

82506070 

82506080 

62506090 

82506100 

62 506110 
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OABB 01 44000C39 



CA8D 73FF 
OABE 70FC 



OABF 0840 
OACO 01 D4O00C88 
0AC2 C028 
0AC3 01 04000C8A 



0AC5 01 44000C4S 
0AC7 0002 
0AC8 £001 



0AC9 C02E 

OACA F039 

OACB 48 18 

OACC 7000 



OACO C020 
OACE 01 04000C8A 
OAOO C033 
0AD1 : 01 D4000C88 
0AD3 C024 
0404 01 D4000C8C 



0AD6 01 44Q00C48 
0AD8 C 0003 
0A09 E005 



OADA 10 10 

OADB 0023 

OADC 2C40 

OAOO 1 OAFS 



OADE 01 44000BD2 
OAEO 01 44000C39 



BSI L RLS WAIT FOR INTERRUPT SRC 

***************************** ***** *•»••»*•** 



♦• NO SPV INTRP ERROR 1 •• 





MDX 


3 


-1 




MDX 




•-* 


• 








• 






*• 


9 










XIO 




DISW 




STO 


L 


MESAG+4 




LD 




DISRT 




STO 


L 


MESAG*3 



SENSE DSW AND SET 

•IN MESSAGE 

GRP ADDRS TO NSC 



*tSttHS»»«tlItJ*9»i ***f *»***•»*** *********** 

BSI L LOGER GO PRINT ERROR 4 SRC 
DC 2 WCRO COUNT 

DC /C001 MESSAGE ID 
**************** »***a.« «***••***•***•**•-,***** 
» 

** CHECK PROTECTED LOC ** 

** FOR PROPER DATA ** 



DIE 



* 
» 



LO 

EG* 
BSC 

KDX 



i.0 

STO 

cD 

STO 

LD 

STO 



Oil CHECK PROTECTED AREA 

01 SN » FOR FFFF 

«- SKIP IF DATA NOT 

OIF * FFFF 

*»STG PROT AREA READ IN»* 



• * 

OJSRT 

HESAG*3 
D1SN 
ME SAG** 
01 1 
*ESA6«5 



ERROR 5 *r 

GRP ADORS TO MSG 
PROTECTED UATA 
ACTUAL DATA 



• **»**•<.*********•***•**•******»************* 

BSI L LOGER GO PRINT ERROR 5 SRC 
DC 3 WORD COUNT 

DC /E005 MESSAGE ID 

************ v***** ************** ************* 

D1F SLA 16 CLEAR SPV SWITCH 

STO SPVSW 

DC /2C40 CLEAR STORAG PROTECT 

DC DIl 

•***•••*•*••***«*«*****•*****•**•***•*** n *•** 

BS! L S1RLD GO RELEASE DI SRC 

BSI L RLS OVERLAP RELEASE SRC 

«*•***••«;.***» K***'*****X***.* ****** *********** 
* 

CHECK IF TERMINATE 
♦PROGRAM REQUESTED 
CHECK SWITCH FUNCTIN 
♦01 IF BIT 15 ON 
•LOOP ROUTINE 1 IF 
•OFF GO TO ROUTINE 2 



RIO 

RAO 

• *•***••*••***•*,* 

PROGRAM CONSTANTS 

***************** 



0AE2 01 
0AE4 00 

CAE6 01 
0AE8 
CA£9 
OA£A 


C4000802 

4C84012E 

C4000803 

4804 

70A8 

70 IF 


• 
RID01 

• 


LD 

esc 

LD 

asc 

MDX 
MDX 


L 

I 


SWO 

ENO.E 

Swi 

E 

RTOl 

RT02 


OAEC 

OAEC 
OAEO 1 


0000 
0001 
0A92 


BSS 

DC 

OC 


E 



I 
RTOl 






• 












• 












• 












• 








OATE 
EC NO. 


28FEB66 
415120 











82506120 

82506130 

82506140 

82506150 

62506160 

82506170 

82 506180 

82506190 

82506200 

82506210 

82506220 

82506230 

82506240 

82 506250 

82506260 

62506270 

82506280 

82506290 

82506300 

82506310 

82506320 

B2506330 

82 506340 

82506350 

82 506360 

62 506370 

82 506380 

82 506390 

82506400 

82506410 

82506420 

82 506430 

82506440 

82 506450 

82506460 

82506470 

82 506480 

82 506490 

82506500 

82506510 

82506520 

82506530 

82506540 

62 506550 

82506560 

82506570 

82506580 

82506590 

62506600 

62506610 

82 506620 

82 506630 

82 506640 

82506650 

62 506660 

82506670 

82 506680 

82506690 

82506700 

82506710 

82 506720 

82506730 

82 506740 

82506750 

82506760 

S2506770 

82506780 

82506790 
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r 
r 

r 



OAEE 


00*0 


OISRT 


DC 


/00*0 


OAEF 


0000 


01 REG 


DC 





OAFO 


OC01 


ONE 


DC 


1 


0AF1 


0000 


RDSH 


DC 





0AF2 


0000 


DICHP 


DC 





0AF3 


0000 


PI1 


DC 





OAF* 


0000 


PI 2 


DC 





0AF5 


0000 


ADORS 


DC 





0AF6 


FAFF 


REAO 


DC 


/FAFF 


0AF7 


0700 


SENSE 


DC 


/0700 


OAFS 


0000 


Oil 


DC 





0AF9 


0000 


DI2 


DC 





OAFA 


0000 


DSU 


DC 





OAFB 


00 oo 


OS HI 


DC 





OAFC 


0000 


INT 


DC 





OAFO 


0000 


DIRO 


DC 





OAFc 


0000 


ROSN 


DC 





OAFF 


0000 


SPVSW 


DC 





0300 


0000 




ess 


E 


OSOO 


4000 


DISU 


DC 


/*000 


osoi o 


0000 




DC 





0602 1 


OAFS 


DIRD 


DC 


Oil 


0S03 


0000 




DC 





0304 


FFFF 


DISN 


DC 


/FFf p 


0B05 


0000 




OC 





0306 1 


0AF3 


fIRD 


OC 


p?l 


0307 


0000 




OC 





0308 


0000 


PISN 


DC 





0309 


oooo 




DC 






OBOA 01 CCOOOBCO 
OoOC 01 DCOOOSOO 
0606 01 7*C10AFI 



0810 01 **000BC2 
0312 01 C*00081* 
081* FOEF 
0315 01*C180B19 
0817 01 **O003DD 



0819 01 C*OOOAO* 
GtUB E8D3 
031C E80A 
0B10 O0E7 
08 IE £007 
0B1F DOES 



0820 

0821 
0B22 
0823 
CB2* 
0825 



DATE 
EC NO. 



C8EI 
08E2 
00D6 
COCO 
*8CB 
700E 



28FEB46 
415120 



RT02 COD 
STD 

MDX 

********** 

0101 BSI 
LD 
EQR 

esc 

BSI 

***««***** 

* 

0102 LD 
OR 
OR 
STO 
AND 
STO 

DI03 



STARTING DI GRP ADRS 
DI GRP BEING USED 

1ST READ SWITCH 
DI GRP COMPARE WORD 
PISH REAO IN AR+A 
PISW RESET CK HOLD 
PISW ADDRESS HOLD 
BUILD READ IOCC CNST 
SENSE COMMAND 
DI GRP READ IN AREA 
DI GRP SENSE SAVE 
OSW HOLD LOCATION 
DSm RESET WORD 
INTERRUPT INDICATOR 
01 REQUEST SAVE 

STG PROTECT SWITCH 

SENSE DSW IOCC 

DI READ IOCC 

01 SENSE IOCC 

PI REAO IOCC 

PI SENSE IOCC 



9***4 ********** *******«>** 

RTN02 CK DI GRP AND PI 
INTERRUPT ROUTINE 2 L(J-'$S 
UNTIL PROGRAM DESELECT 

******•«*****************£ 

L RID02 ROUTINE NUMBER AND 

L RID *ADDRESS TO PST 

L RDSW.l SET FIRST READ INDTR 

************ •**»*»»««« ••*«******<*** 



DIROD GO REOUEST DI SRC 

EDIT*2 BYPASS REQUEST PI IF 

DISN *1ST PI EDIT ENTRY 

0102,*- *IS FFFF 

PIROD GO REQUEST PI SRC 



»*«»t»«««***«tt»«»««*»»t s *t» wttM( 



*• BUILD RD AND SN CMNDS»» 



DIINT 

OIREG 

SENSE 

DISN*l 

READ 

DIRO+1 



GET DI AREA CODE 
ADD PRESENT DI ADDRS 



CI GRP SENSE 
D' GRP READ 
»* READ AND SENSE DI GRP*» 



XI 

xio 

STO 
LD 

asc 

MDX 



DIRO READ THE DI GROUP 

DISN SENSE DI GROUP 

012 SAVE SENSE DATA 

RDSW CHECK IF 1ST REAO 

♦ SKIP IF 1ST REAO 

010* BRANCH IF NOT 1ST RD 

** 1ST READ THIS DI GRP •• 



82506600 

82506810 

82 506820 

82506830 

825068*0 

62506850 

82 506860 

82506870 

62506880 

82 506S90 

82 506900 

82S06910 

82506920 

82 506930 

82 5069*0 

82 506950 

82 506960 

82506970 

82 506980 

82 506990 

82 507000 

825070JS 

82507020 

82507030 

625070*3 

82 507050 

82 50T060 

82507070 

e2 507080 

82 507090 

82 507100 

R2 5071 10 

82 507120 

82507130 

825071*0 

82 507150 

62507160 

82507170 

82&0716S 

82507190 

82507200 

82507210 

62507220 

62507230 

825072*0 

82507250 

82507260 

82507270 

82507280 

82507290 

82507300 

82 507310 

62507320 

B250733a 

825073*0 

82507350 

82507360 

82507370 

82 507380 

82507390 

82507*00 

82507*10 

62507*20 

82507*30 

62507**0 

62507*50 

82507*60 

82507470 
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r, i 

r, -\ 



0B26 CODl 

0327 DOCA 

0B28 01 D*OO0C6B 

0B2A COC* 

0826 01 D*00OC8A 



0320 01 **000C*E 
C62F 0002 
0330 D001 



0831 1010 
C332 DOBE 
0333 7012 



0B34 C0C3 

CB35 FOBC 

0B36 *Si8 

0B37 700S 

0B38 C0B9 
OB 39 01 D*O0OC8B 
0B3S COBC 
0S3C 01 D*O0OC8C 
083E 00B3 
C83F COAF 
06*0 01 D«000C8A 



06*2 01 **OOOC*E 
03*4 0003 
0845 0002 



03*6 C0B1 

08*7 F0B1 

03*8 *816 

03*9 700D 



OB*A COAO 
0B4B 01 D*O00C6B 
084D COAB 
OB*E 01 D4C00C8C 
0650 C09E 
0851 01 D40Q0C6A 



0B53 01 **O00C*8 
Cd55 0003 
06 56 E002 



0BS7 01 4*000602 
0S59 01 **O0OC39 
0B53 01 44000BC2 



0B5D C09E 
OBSE *818 
0a 5F 702E 



•* 



<-D OH SAVP DAT« REAO AS 

STO DICMP »COMPARE WORD 

STO L ME SAG** SET DATA IN MESSAGE 

LD DIREG SET DI GRP ADDRESS 

STO L M£SAG*3 *IN MESSAGE 



DATE 

EC NO. 



26FEE66 
41 51 20 



• « 
* 



» 
* 
if 
01 



******************************************* 

BSI L LOGDT LOG 1ST READ DATA SRC 

DC /0002 LINE NMBR ♦ WORD CNT 

DC /D001 MESSAGE ID 

************ ****************** **»**»*»m,» 



SLA 
STO 

MDX 



16 
RDSU 

DI05 



CLEAR 1ST READ 

'INDICATOR AND CONT 



0* LD 

EOR 
BSC 
MDX 

ID 

STO 

LB 

STO 

STO 

LD 

STO 



* 
** 



«* NOT 1ST READ THIS GRP** 

OU CHECK PRESENT DATA 

DICHP *AC4INS7 COMP WORD 

♦- SKIP IF NG COMPARE 

0105 BRANCH IF COMPARE 

DSCHP SET COMPARE WORD IN 

HESAG** »L0& MESSAGE 

Oil SET PRESENT READ 

MESAG*5 *DATA IN LOG MESSAGE 

DICMP *AND IN COMPARE WORD 

DIREG SET DI GRP ADDRESS 

MESAG*3 *1N MESSAGE 



** 
DI 



BSI L LOGDT LOG NGN CMPAR DATA SRC 
DC /OOOJ LIME NMBR ♦ WORD CNT 
OC /D002 MESSAGE ID 
************ »«tt4 t *>*«««»»»«>t«*««»»»»t»**» 



• 



05 LD 

EOR 
BSC 
MDX 



LD 

STO 
LO 
STO 
LD 

STO 



*» CK FOR RD SNS CMPR ** 

OH CHECK READ AND SENSE 

012 *DATA 

♦- SKIP IF UNLIKE 

DI06 BRANCH IF ALIKE 



*• RD SNS CMPR ERROR ** 



DIl 

KESAG** 

DI2 

MESAG+5 

DIREG 

MESAG+3 



REAO OATA TO MSG 
SENSE DATA TO MSG 
01 GRP AORS TO MSG 



********* 
BSI 
OC 
DC 

»•*****»* 

••••***** 

D106 BSI 

BSI 

BSI 

********* 

* 

LD 

BSC 

MDX 



***»#**«**» *<S ** **»* ** **** **** *» *«, -», 

L 10GER LOG RD SNS ERROR SRC 
/0003 LINE NMBR ♦ WORD CNT 
/E002 MESSAGE ID 

******* ***************************** 

L OIRLD GO RELEASE 01 SRC 

L RLS OVERLAP RELEASE SRC 

•- DIRQD GO REQUEST DI SRC 

************************************ 

INT CK IF INTRP OCCURED 

♦- SKIP IF INTRP 

01 06 BRANCH ON NO INTRP 



82 507*60 

82 507*90 

62507500 

82507510 

82507520 

82507530 

825075*0 

62507550 

82507560 

82507570 

82507580 

82507590 

82 507600 

82507610 

82 507620 

82507630 

82 5076*0 

82507650 

82 507660 

82507670 

82507680 

82507690 

82507700 

82507710 

82507720 

82507730 

825077*0 

82507750 

82507760 

82507770 

82 507780 

82507790 

82507800 

82 507810 

82507620 

82507830 

82 50 78*0 

62507850 

82 507860 

82507870 

82 507680 

82507690 

82 507900 

82507910 

82507920 

82507930 

82 5079*0 

82 507950 

82507960 

82 50 7970 

82507980 

82507990 

82508000 

62508010 

82508020 

62506030 

825080*0 

82508050 

82 508060 

82 506070 

825080 80 

62S08090 

62 508100 

82506110 

62508120 

82508130 

825081*0 

62508150 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
01 OPC FUNCTION TEST 









• 






»* 


CHECK PROCESS INTRPT *• 


0B60 





1010 


• 


SLA 




16 


CLEAR INTRPT INOICTR 


0561 





DO 9A 




STO 




INT 




OB 62 


01 


C4000AFE 




LO 


L 


ROSN 


SET READ SENSE INDTR 


OB 64 


01 


D4000C SC 




STO 


L 


MESAG*5 


•IN PRINT MESSAGE 


OB 66 





6130 




LDX 


1 


48 




0B67 


01 


CD0009D2 




LOO 


LI 


PITBL-2 


GET TABLE ENTRY 


0B69 





4820 




BSC 




I 


SKIP IF ENTRY 2ER0 


086A 





7003 




MOX 




**i 


BRANCH NOT ZERO 


036B 





71FE 


OI06A 


MDX 


1 


-2 


MODIFY TABLE INDEX 


0B6C 





70FA 




MOX 




*-6 


GO GET NEXT ENTRY 


OB 60 





7000 




MOX 




0107 


GO CHECK PISH RESET 








• 






♦♦LOG PIS* CONTENTS** 


0B6E 


01 


D4000CfcA 


» 


STO 


L 


MESAG+3 


PISW ADDRS TO MESAC-E 


OB70 





1090 




SLT 




16 


REG TO A REG 


0B7t 


01 


D4000C8B 




STO 


L 


HESAG+4 


PISW DATA TO MESSAGE 


OB 73 





10A0 




SLT 




32 


CLEAR USED TABLE 


OB 7* 


01 


00000902 




STD 


Li 


PITBL-2 


•ENTRY 



0B76 01 440QOC4E 
0B78 0003 
CB79 0003 



0B7A 70F0 



**»***************«,«*■*********»• ****** ******* 
8SI L LOGDT PRINT MESSAGE DO02 
DC /0C03 WORD COUNT 
DC /D003 MESSAGE 10 

**♦*.♦****♦*»**»♦•*»*•»•*♦*****»*■*»*****•*•*** 

* 

MOX DI06A CK IF TBL SEARCH DUN 



SRC 



0B7B 
OB 70 
0B7E 
0B7F 
0B81 
0B83 
0B8S 
OB 66 
0B86 



01 C4000AF4 
4818 

700F 

01 D4000C8B 
01 C4000AFS 
01 D':C0OC8A 

1010 

01 04000AF4 
01 04000AF5 



0107 



** CHECK PISW RESET 



LD 

SSC 

MOX 

SIO 

LO 

STO 

SLA 

STO 

STO 



PI2 



CHECK IF PISW RESET 
SKIP IF RESET FAILED 

oioe 

MESAG+4 

AODRS 

MESAGO 

16 

PI2 

ADORS 

•• PROCESS INT RESET ERR»* 



SET PISW IN MESSAGE 

SET ADDRESS IN MESAG 
CLEAR ERROR SAVE 
•LOCATIONS 



0B8A 01 44000C48 
0B8C 0002 
0B8D E004 



0B8E 01 C4000802 
0B90 00 4C84012E 
0B92 01 C4000804 
0B94 4818 
0B95 708A 



1890 

1010 

0B98 01 04000804 
0B9A 1088 
0B9B 01 04000AF0 

1010 

1088 



0896 

0897 



0890 
0B9E 



********** 
BS1 
OC 
DC 

•••*•***** 

• 
* 

• 

DI08 LD 
BSC 
LO 
BSC 
MDX 

• 

• 

SRT 
SLA 
STO 
SLT 
STO 
SLA 
SLT 



*********************************** 
L LOGER LOG PISW RESET ERROR SRC 

/0002 LINE NMBR * WORD CNT 

/E004 MESSAGE ID 

*********************************** 

** CHECK IF OPERATOR HAS** 
** REQSTD A DI GRP CHNG •» 



L SWO CHECK IF TERMINATE 

I END.E *PROGRAM REQUESTED 

L SW2 GET FUNCN 2 SETTING 

♦- »SKIP IF NOT ZERO 

D103 NO REQUEST CONTINUE 

*• GRP CHANGE REQUESTED •* 



16 

16 
L SW2 

8 
L 01RQ 

16 

8 



CLR FUNC 2 LOCATION 
SAVE 01 GRP REQUEST 
•POSITIONS 

GET BIT 15 



DATE 
EC NO. 



28FEB66 
415120 
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82508160 

82508170 

82 506180 

82508190 

82S082OO 

82508210 

82508220 

82 508230 

82508240 

82508250 

62508260 

S2508270 

82508280 

82508290 

82508300 

82 508310 

8250832© 

82 508330 

82508340 

62508350 

82508360 

82 50 83 70 

82 508330 

82508390 

82 SO 840© 

82508410 

82 508428 

82 506430 

82 508440 

82508450 

S2 508460 

62508470 

82506430 

82 508490 

82508500 

82508510 

82508520 

82508530 

82508540 

82 508550 

82508560 

E2508570 

62 508580 

82508590 

82508600 

82508610 

82508620 

82508630 

82508640 

82508650 

82 508660 

82508670 

62508680 

62 508690 

82 508700 

62508710 

82 508720 

82506730 

82508740 

82 508750 

82 508760 

82508770 

82508760 

82508790 

62508800 

82508610 

82508620 

82508430 



PROG 10 
PAGE 



f ! 



! . 



0825-0 
f 



i 

i . 

<> 1 



IBH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
01 OPC FUNCTION TEST 



0B9F 
CBAO 



480S 
70 1C 



0SA1 
0BA3 
08A* 
0SA5 

0BA7 
06A8 
OSAA 
OBAC 
OBAE 
OBAF 
OBBO 
GSBI 
0B83 
06B3 
0BB6 
0BB7 
0B69 
OBSS 



01 C4000AF0 
4818 

7003 

01 04000AEF 

7002 

01 74010AEF 
01 C4000AEE 
01 94000 A£F 
48 OS 

7001 

7006 

01 C4000813 
01 94000AEF 
S 4810 

7004 

01 C4000AEE 
01 04000AEF 
01 74010AF1 



0380 01 4C000B19 

GBCO QO&O 
OBCO 0002 
0BC1 1 OBCA 



0BC2 0000 
0BC3 01 C4000812 
0BC5 4828 
0BC6 7006 



0BC7 00 44800131 
0BC9 1 08CF 



OSCA 1 
OBCB 1 
06CC 1 



0812 
0AO4 
OBOS 



OBCO 01 4C6008C2 



03CF 01 44000C39 



0601 70F1 



0802 0000 

0BD3 01 C4000812 

OBOS 4810 

0BD6 7004 



0BD7 00 44800132 
0BD9 1 0812 
OBDA 1 0808 






BSC 

MOX 



LD 
8SC 

MDX 

STO 

MOX 

MDX 

LO 

S 

BSC 

MDX 

MOX 

LD 

S 

BSC 

MOX 

LD 

STO 

MDX 



♦ 
0109 



DIRQ 



•♦3 

DIREG 

•♦2 

DIREG.l 

DISRT 

DIREG 

♦ 

•♦1 

•♦6 

EDIT+1 

DIREG 

**4 

DISRT 

DIREG 
RDSW.l 



SKIP IF BIT 15 ON 
BRANCH IF SIT 15 OFF 

•• CHANGE 01 GRP •• 

GET GRP REQUEST 
SKIP IF NOT « ZERO 
CONTENTS ZERO BRANCH 
RES TO GRP IN USE ID 



e 

DI09 



BSC L 0102 



ADD 1 TO GRP IN USE 
CHECK IF GRP REQUEST 
•ADDRESS LESS THAN 
•0040 

GRP ADORES TOO SMALL 
GET MAX ADDRESS AND 
•CHECK IF NEW SEL IS 
♦GREATER IF SO SKIP 
NEW SELECTION OK 
RESET GRP ADDRESS 
*T0 /0040 
SET 1ST RD THIS REG 

CONTINUE 



BSS E 

RI002 DC 
DC 

* 

• 

DIRQD DC 

LD L 

BSC 

MDX 

• 

**;,**#****** 

BSI I 

DC 

DC 

DC 

OC 

************ 

esc I 

************ 

018SY BSI L 

************ 

MDX 



© 
2 
RT02 



RID 

RAO 

************************* 

DI REQUEST DEVICE ROUTINE 

ft*********************** 



O 

EDIT 

♦Z 

•♦6 



SE 



REQUEST DEVICE IF IT 
•IS NOT PRESENTLY 
•ASSIGNED TO PROGRAM 



********************************* 

REQDV GO REQUEST DEVICE MRC 

DIBSY BUSY RETURN 

EDIT DI DOEF 

01 INT ASSIGNMENT ADDRESS 

TERM 
********************************* 



DIRQO 



RETURN TO USER 



SX 



****** ********************* ******* 

RLS BUSY EXIT TO MON SRC 

it***-**************************** 



DIRQO* 1 



TRY AGAIN 



a,************************ 
DI RELEASE DEVICE ROUTINE 

«•**•*•*•*•••*•***••*•••• 




EDIT 

•♦4 



SE 



» 
* 

OIRLO DC 
LO 
BSC 
MDX 

a*********************************-*********** 

BSI 1 RELOV GO RELEASE DEVICE MRC 

OC EDIT 01 DDEF 

OC TERM 



RELEASE DEVICE IF IT 
•IS PRESENTLY HELO 
BY THE DI PROGRAM 



DATE 
EC NO. 



26FEB6* 
415120 



PART NO. 219640T 
PAGE 7 A 



62508840 
82508850 
82 508860 
82 SO 88 70 
82508880 
82508690 
82508900 
82506910 
82 506920 
82508930 
62506940 
82508950 
82508960 
82508970 
82508980 
62506990 
82509000 
82509010 
82509020 
82509030 
82509040 
82 509050 
32509060 
82509070 
82509080 
C2 50 9090 
82 509100 
82509110 
82509120 
82509130 
62509140 
82509150 
82509160 
82509170 
82 509180 
82 509190 
82509200 
82509210 
82509220 
82509230 
82509240 
82509250 
82509260 
82509270 
82509280 
82509290 
62509300 
82509310 
82509320 
e2509330 
82509340 
82509350 
82509360 
82509370 
82509380 
825C9390 
82509400 
82509410 
82 5C 94 20 
82509430 
82509440 
62 509450 
62 509460 
825094T0 
82509480 
825C9490 
62509500 
62509510 
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PAGE 



0825-0 
7» 



CLC-l. 
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r 
r 
r 



o 



IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



01 OPC FUNCTION TEST 



PART NO. 21V640V 
PAGE 8 



08D8 01 4C800B02 



OBOO 0000 



OBOE 
OBEO 
0BE1 
OB £2 
0BE3 
0BE4 
0BE5 
0SE6 
0EE7 
0JE8 
0BE9 
OBEA 
0BE8 
OBEC 
OBEO 
OBEE 
OBEF 
OBFO 
0BF1 
0BF2 
0BF3 
08F4 
0SF5 
0BF6 
0BF7 
0BF6 
0BF9 
OBFA 
OBFB 
OBFC 
OBFO 
08FE 
OBFF 
OCOO 
0C01 
0C02 
0CO3 
0C04 
0C05 
0C06 
0CO7 
0C08 
0C09 
OCOA 
OCOB 
OCOC 
OCOO 
OCOE 
OCOF 
0C10 
0C11 



00 44600131 

1 0C16 
0814 
0820 
08 IS 
08 3C 
0816 
0846 
081? 
085A 
0816 
0869 
0819 
0378 
08 IA 
0887 
08 IB 
0896 
08 1C 
08A5 
0810 
0884 
08 IE 
08C3 
08 IF 
0802 
0820 
08E1 
0621 

1 08F0 
1 08 22 

08FF 

0823 

090£ 

0824 

0910 

0825 

092C 

0826 

093B 

0827 

094A 

0828 

0959 

0629 

0968 

08 2A 

0977 

082B 

0986 

080B 



0C12 01 4C000C14 
CC14 01 4C80080D 



********************** 



BSC 

* 

PIRQO DC 

* 

BSI I 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

cc 

DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
OC 
DC 
DC 
DC 
DC 
OC 
DC 
DC 
************ 

BSC L 

RQEXT BSC I 



OIRLO 



*»* 

PI 

»*» 



REQDV 
PIBSY 
EDIT+2 
OVAOO 
EDIT+3 
0VA01 
EDIT*4 
0VA02 
EDIT«5 
DVA03 
EDIT+6 
DVA04 
EDIT*? 
DVAC5 
E0IT*8 
DVA06 
£DIT*9 
DVA07 
EDIT*10 
DVAQ8 
EDIT«-11 
DVA09 
EDIT+12 
DVA10 
EDIT*13 
DVAH 
EDIT*14 
DVA12 
EDIT+15 
DVA13 
EDIT+16 
DVA14 
EDIT+17 
DVA15 
EOITUB 
0VA16 
ED1T+19 
DVA17 
EDI 1*20 
DVA18 
ED1T*21 
DVA19 
E0IT»22 
0VA20 
EDIT+23 
DVA21 
ED1T*24 
DVA22 
£DIT*25 
DVA23 
TERM 
********** 

RQEXT 

PIRQO' 



DATE 
EC NO. 



28FEB66 
415120 



** ************ ********* 


82 509520 






82509530 


RETURN TO USE ft SK 


82509540 






82 509550 


*»**********»**»*»***« 


82509560 


REQUEST 


DEVICE ROUTINE 


82509570 


************** ******** 


82509580 






82509590 




SE 


82509600 
62509610 


*********************** 


82509620 


REQUEST PROC. INTRP MRC 


82 5C 9630 


BUSY 


RETURN 


82509640 


DDEF 


1 


62 509650 
82509660 


DDEF 


2 


82509670 
82 509680 


DDEF 


5 


82509690 
82509700 


ODEF 


* 


82509710 
82509720 


DDEF 


S 


82 50973C 
82 509740 


DDEF 


6 


82 509750 
82 509760 


ODEF 


? 


82 509770 
82509780 


DDEF 


8 


82509790 
82 509800 


DDEF 


9 


82 509810 
82509820 


DDEF 


10 


82 509830 
82509840 


DDEF 


11 


82 509850 
82509860 


ODEF 


12 


82509870 
82509880 


DDEF 


13 


82 509890 
87509900 


ODEF 


14 


82509910 
82509920 


DDEF 


15 


82 509930 
62509940 


DDEF 


16 


82509950 
82 509960 


DDEF 


IT 


82509970 
82509960 


DDEF 


IS 


82509990 
82 510000 


OOEF 


19 


82510010 
62510020 


DDEF 


20 


82510030 
82510040 


DOEF 


21 


62510050 
82510060 


DDEF 


22 


82510070 
82510080 


DDEF 


23 


82510090 
82510100 


DDEF 


24 


82510110 
82510120 
82510130 


*********************** 


62510140 






82510150 






62510160 






82510170 


RETURN TO USER SK 


82510160 






62510190 






PROC ID 0825-0 






PACE t 



' ) t 






Vh... 



JBM BAJNTENANtfc DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



01 OPC FUNCTION TEST 



0C16 01 44000C39 



CC18 70C5 



0C19 0000 



y 



( : < J i 

*■■■- V- 



PART NO. 219640? 
PACE 6A 



0C1A 00 

0C1C 1 

0C1D 

0C1E 

0C1F 

0C20 

0C21 

OC 22 

0C23 

0C24 

0C25 

0C26 

0C27 

OC28 

0C29 

CC2A 

0C28 

0C2C 

0C2D 

0C2E 

0C2F 

0C30 

0C31 

©C32 

0C33 

0C34 



44600132 

0614 

081S 

0816 

0617 

0818 

0819 

081* 

081B 

08 1C 

0310 

08 IE 

08 If 

0820 

0321 

0822 

0823 

0824 

0825 

0626 

0827 

0828 

0829 

082* 

083 

08C5 



OC35 01 4CO0OC37 
0C37 01 4C800C19 



0C39 OOCO 
0C3A 69C8 
0C3S 6SC9 
0C3C 01 67C00C42 
0C3E 01 6FC0080A 



QC40 00 4C 600 120 



0C42 00 65C0O000 
0C44 00 67C00000 
0C46 01 4C600C39 



0C4C 0000 



DATE 
EC NO. 



28FEB6* 
415120 



******** ****************************** ******* 




82510200 




PIBSY BSI 


L 


RLS 


BUSY 


EXIT TO HON 


SRC 


82510210 




********************************.,************ 




825102..0 




• 












62510230 




KDX 




PIRQO*! 


TRY AGAIN 




82510240 




• 












62510250 




• 




************************* 




62510260 




• 




PI 


RELEASE 


DEVICE ROUTINE 




82510270 




• 




**t.*t ******************** 




62510280 




PIRLO OC 











SE 


62510290 




• 












82510300 




********************************************* 




82510310 




BSI 


I 


RELOV 


RELEASE PROC. INTRP 


MRC 


82510320 




OC 




EDJT+2 


ODEF 


1 




62510330 




DC 




E0IT*3 


DDEF 


2 




62510340 




OC 




EDIT*4 


DDEF 


3 




82510350 




DC 




ED1T+5 


DDEF 


4 




82510360 




DC 




EDIT+6 


DDEF 


5 




82510370 




DC 




E0IT+7 


ODEF 


& 




62510380 




DC 




EDIT*8 


ODEF 


7 




62510390 




DC 




EDIT*9 


DOtF 


8 




62510400 




DC 




EDIT+10 


ODEF 


9 




62510410 




DC 




EOIT+ll 


DOEF 


10 




82 51C420 




DC 




£D1T«H2 


ODEF 


11 




82510430 




DC 




EDIT«-13 


DDEF 


12 




82510440 




DC 




EDU + 14 


DDEF 


13 




82510450 




OC 




EDIT*15 


DDEF 


14- 




82510460 




DC 




EDIT»16 


DOEF 


15 




82510470 




X 




EDIT*1? 


DDEF 


16 




82510480 




DC 




EDIT*18 


DDEF 


17 




82 510490 




DC 




EDIT+19 


DDEF 


18 




82510500 




DC 




EDIT+20 


DDEF 


19 




82510510 




DC 




EDIT*21 


ODEF 


20 




62 510520 




DC 




EDIT+22 


DDEF 


21 




82510530 




DC 




ED1T+23 


ODEF 


22 




82510540 




DC 




EDIT+24 


ODEF 


23 




82510550 




DC 




EDIT+25 


DDEF 


24 




62 510560 




OC 




TERM 








82510570 




************** ****1******************* ******* 




62510560 




* 












82510590 




BSC 


t 


RLEXT 








82510600 




• 












82510610 




RLEXT BSC 


1 


PIRLO 


RETURN TO USER 


SX 


82510620 




* 












82510630 




* 












82510640 




• 




*************************** 


82510650 




• 




** 


RELEASE 


TO KDN1TQR RTN** 


62510660 




• 




*************************** 


82510670 




• 












82510680 




RLS DC 











SE 


82510690 




STX 


1 


RLSIU 


SAVE 


INDEX 1 




82510700 




STX 


3 


RLS1+3 


SAVE 


INDEX 3 




62510710 




LDX 


L3 


RLSi 








82510720 




STX 


13 


MLSCF+l 


SET RETURN ADDRESS 




62510730 




* 












82510740 




***********************.********************** 




82 510750 




BSC 


I 


STAPT 


EXIT 


TO KONITOR 


MRC 


82510760 




************************************** ******* 




82510770 




* 












82510780 




RLS1 tax 


LI 











82510790 




LDX 


J.3 











62510800 




BSC 


I 


RLS 






SX 


82510810 
82510620 








********************** 




62510630 








ERROR AND LOG ROUTINES 




8251C840 








* >******************** 




82 510850 
















62510860 




LOCER OC 







ERROR ENTRY POINT 


SE 


82510670 
















PROG 10 


0825-0 










r- 




PAGE 


6A 
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ISM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1600 SYSTEM 



01 OPC FUNCTION TESf 



0C72 40C6 

0C73 70E7 
0C74 OQCO 



0C75 01 C4000802 

0C77 1000 

0C78 4828 

0C79 700S 



0C7A 00 4480012F 
0C7C 1 0C87 
0C70 1 OC85 
0C7E 0000 



0C7F 01 44000BC2 
0C81 01 74010C4E 
0CB3 01 4C800C4E 



SET ERR CALL 1N0ICTR 
SET ERROR CALL STRNG 
•ADDRESS INTO LOG 
•ENTRV ANO GO TO LOG 

LOG ENTRV POINT SE 
RELEASE 01 SRC 

WORD COUNT TO MESSAGE 
•TABLE 

MESSAGE 10 TO MESSAGE 
•TABLE 

SKIP IF ERROR CALL 
BRANCH IF LOG CALL 

GO PRINT ERROR MRC 
MESSAGE TABLE ADDRS 
BUSY RETURN 
LOOP ERROR ADDRESS 
•»•*•*•••••»••*••*••••* 

SKIP LOOP ERROR 

CLEAR ERRER CALL 

•INDICATOR 

REQUEST DI SRC 

CHECK IF ROUTINE i 
LOOP ON SPV PASS ERR 
SKIP 2ND REQUEST 01 
REQUEST DI SRC 

CLEAR ERRDfi CALL 
•INDICATOR * 

RETURN TO USER SX 



* •• ERROR ROUTINE BUSV ** 

ERBSV BSI RLS ' BUSV EXIT SRC 



0C49 


01 


74010C74 




MDX 


L 


ERCAL,! 


0C4B 





COFC 




LO 




LOGER 


0C4C 





0001 




STO 




LOGDT 


0C4D 





7001 





MOX 




LOGDT +1 


0C4E 





oooo 


LOGOT 


DC 







0C4F 





4082 




8SI 




CIRLD 


OCSO 


CI 


C4800C4E 




LO 


I 


LOGOT 


0C52 





0034 




STO 




ME SAG 


0C53 


01 


74010C4E 




MDX 


L 


LOGOT, 1 


0C55 


01 


C4800C4E 




LO 


I 


LOGDT 


GCST 





0031 




STO 




MESAG*2 


0C56 





C01B 




LD 




ERCAL 


0CS9 


O 


4818 




BSC 




«~ 


0C5A 





701 A 


• 

••••• 


MOX 




LOG01 








»**»*#*»**»#****» 


0C5B 


00 


44800130 


L0GE1 


BSI 


I 


ERROR 


0C5D 


1 


0C87 




DC 




KESAG 


OCSE 


1 


0C72 




DC 




ERBSV 


0C5F 


1 


0C61 




DC 




L0GE2 








*«*»»«*«««**»*»»•*•«*« 


0C60 





7009 





MDX 




•♦9 


0C61 





1010 


L0GE2 


SLA 




16 


0C62 





0011 




sro 




ERCAL 


0C63 


01 


^O0OBC2 




BSI 


L 


01 ROD 


0C65 


01 


C4000AFF 




LO 


L 


SPVSW 


0C67 


01 


4C200A99 




BSC 


L 


DIOA.Z 


0C69 





7004 




MDX 




-■+4 


0C6A 


01 


44000BC2 




BSI 


L 


DIRQD 


0C6C 





1010 




SLA 




16 


0C6D 





0006 




STO 




ERCAL 


0C6E 


01 


74020C4B 




MOX 


L 


LOGER, 2 


0C70 


01 


4C800C48 




BSC 


I 


LOGER 





MOX 


L0GE1 


• 






ERCAL 


DC 





• 






* 






• 




• • 


* 






L0GD1 


LD L SWO 




SLA 


13 




BSC 


♦2 




MDX 


L05D2+5 



ERROR CALL INDICATOR 



•• LOG CALL ** 

CHECK BVPASS LOG 

SKIP IF LOG 

BRANCH ON BYPASS LOG 

• 

***•*•**• •***«•• •••*••••••**•••••*• •••••••••• 

L0GD2 BSI I LOG GO PRINT DATA MRC 
DC MESAG MESSAGE TABLE ADDRS 
DC LGBSV BUSY RETURN 
0C /OOOO TERMINATION ADDRESS 

••*••••»**•*•••••**••••••••*••*•*•••**•*•*•*• 



BSI L DIRuD 
MOX L LOGDT, 1 
BSC I LOGOT 



REQUEST DI 
RETURN TO USER 



SRC 
SX 



•• LOG BUSV •• 



DATE 
EC NO. 



28FEB64 
415120 



PAR? NO. 2196487 
PAGE * 



82510880 
82510690 
62510900 
82510910 
82 510920 
62510930 
82510940 
62 SI 09 50 
82510960 
82510970 
82510980 
82510990 
62511000 
62511010 
82511020 
82511030 
82511040 
82511050 
8251 1060 
82511070 
82 5110 80 
82511090 
82511100 
82511110 
82511120 
82511130 
82511140 
82511150 
S25I1160 
82511170 
82511180 
82511190 
82511200 
82511210 
62511220 
82511230 
62511240 
82511250 
82511260 
82511270 
82 511280 
62511290 
82511300 
82511310 
82511320 
82511330 
82511340 
62511350 
82511360 
82511370 
82511380 
82511390 
82511400 
82511410 
82511420 
82511430 
62511440 
82511450 
82511460 
82511470 
82511460 
82511490 
82511500 
82511510 
82511520 
82511530 
82511540 
82511550 



PROG 10 
PACE 



0825-0 



3 




1 

1 

1 






n 


1 


■■") 


1 


o 


1 


!*) 


3 


Tt 


a 


r, 


3 



ISH MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
01 OPC FUNCTION TEST 

OC85 40B3 
0C86 70F3 



PART NO. 2196407 
PAGE 9A 



0C87 





0000 


0C88 





0000 


0C89 





0000 


0C8A 





0000 


0C8B 





oooo 


0C8C 





0000 


OCSO 





0000 



0C8E 0000 



OCSF 
0C90 1 



2C40 

OAFS 



0C91 01 44000BD2 



0C93 01 C4000614 
0C95 01 F4000B04 
0C97 4818 
0C98 7002 



0C99 01 44000C19 



0C9B 01 4CS00C8E 

0C9D 0000 
0C9E 0A1A 



»*••»*** *•••••••••••*••••••••••('*•»••• ••••••• 




8251 156C 


LGBSV 


BSI 




RLS BUSY EXIT 


SRC 


82511570 


»e *#*»•*•»*•»**•**#**»«•»»»•»••***•••* »*»•»•• 




82511580 


• 










82511590 




MDX 




L0G02 




62511600 


* 










82511610 


* 






•* MESSAGE TABLE • * 




82511620 


• 










62511630 


MESAG 


DC 




LINE NMBR ♦ WD COUNT 




82511640 




DC 




HEX DEC SW 




82511650 




DC 




MESSAGE 10 




82511660 




DC 




MOD I 




82511670 




DC 




MOD 2 




62511680 




DC 




MOO 3 




82 SI 1690 




DC 




MOO 4 




82511700 


• 










82511710 


• 






•••••••*••* 




82 511720 


• 






END ROUTINE 




82511730 


* 






**»*•»*»••* 




B25H740 


• 










82511750 


DIENO 


DC 







SE 


62511760 


* 










82511770 




DC 




/2C40 CLEAR STORAGE PROTCT 




82511780 




DC 




DIl »BIT 




62 511790 


* 










82511800 


*S4t«»»»****4»***S*****s»*«4*»t«#*#**»»iS*t4*» 




82511810 




BSI 


L 


DIRLD RELEASE 01 


SRC 


82511820 


»******»*«■*» »****»**»*•*»•**»***•*»* *«*«■**•*• 




62511830 


• 










82511840 




LD 


L 


£DiT*2 BYPASS RELEASE PI 




82511850 




EOR 


L 


DISN *IF 1ST PI EDIT 




82511660 




BSC 




*~ »ENTRY IS FFFF 




62511870 




MOX 




•♦2 




82511860 


• 










82511890 


*«*********»*»»**«»******•#»***>»*****!**»«»»»« 




82511900 




BSI 


L 


PIRLD GO RELEASE PI 


SRC 


82511910 


***«**»«******••*••**'****••**•***•«*••**•••*• 




82 511920 


• 










82511930 




BSC 


I 


D1END RETURN TO USER 


SX 


82511940 


• 










82511950 


PEND 


BSS 




ENO PROGRAM ARRDESS 




62511960 




END 




DIBGN 




82511970 



DATE 
EC NO. 



28FEB66 
415120 



PROG ID 
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0625-0 
9A 
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IBM HAINTEfcANCE OIAGN0S11C PROGRAM FOP. THE 1800 SVSIER 
01 CPC FUNCTION WSI 

CROSS REFERENCE LISTING 



PART NO. 219640? 
PACE 10 



SYMBOL 


VALUE 


REFERENCES 


A 


09A5 


0996 


AOORS 


OAFS 


09CB,0B81,0B88 


B 


09 AS 


0999 


BEGIN 


012C 


07FF.0A1A 


CRCK 


0133 




OIBGN 


0A1A 


0C90 


D1BSY 


OBCF 


0BC9 


QIC 


0AA9 


0A&8 


OICMP 


0AF2 


0B27,0B35.0B38,0B3E 


010 


0AB9 


OAAC 


OIOPC 


0A69 


0607, 0A71 


DIE 


0AC9 


0A63.CA68 


01 END 


0C8E 


0808, 0C9B 


01 ER 


0A32 


0A11 


DIERi 


0A40 


0A3B 


DIF 


OADA 


OACC 


OIINT 


0A04 


OA18,OA9B,0B19,0BCS 


DIN1 


0A14 


0A10 


DIN2 


OAie 




01R0 


0B02 


OAA4,0ABA,OBlF,0B20 


DIRES 


OAEF 


OA2O,OA32,OAA3,O81B,OB2A,OB3F,OB5>O,CBA5,OBA8,0BAC 
0SB3.0BB9 


DIRLD 


0B02 


OADE,0B57,0BDB,0C4F,OC91 


DIRQ 


OAFO 


039B, 0»A1 


OIRQO 


0BC2 


0A95, 081 OtOB5B,0 BCD, 0301 ,0C63,0C6A,0C7F 


01 SN 


0904 


OA6C,OA9E,OAA5 S GACA,OADO,0814,OB1D,0821 S OC95 


OISPV 


0A4E 


0A14 


DISP1 


0A5C 


OAST 


OISRT 


OAEE 


OA1E,OA4E < OAAF,C«C2,OACO,C8AA,OBB7 


01 SW 


oaoo 


OA06,OAOA,OA60,0AA0,0AA9,0AflF 


OIOA 


0A99 


OC67 


0101 


*OB10 




0102 


OB 19 


0B15.0BB0 


0103 


OB 20 


OB 95 


0104 


OB 34 


OB25 


0105 


0B46 


0833, 0B37 


0106 


0B57 


0A4C.0B49 


0I06A 


0B6B 


0B7A 


0107 


0B7B 


OB60 


0108 


086E 


OB5F.0B7E 


0109 


OB BO 


OBAO 


OH 


OAFS 


OA2B,0A44,0A9A,0AA6,0AA8,0AC9,0AD3,0A00, 0802,0626, 
0334, 0333, 0846, 0B4A.0C 90 


OHO 


0A31 


OA72.0A73 


012 


0AF9 


PB22,OB47,0B40 


osw 


OAFA 


OAQ8,OA40,0A5C 


OSHl 


OAFB 


OA0C,OA36,0A52 


DVAOO 


0820 


O835.0839.0BE2 


0VA01 


0&3C 


0844, 0848, 0BE4 


DVA02 


06*B 


C853,08S7,0BE6 


0VA03 


085A 


0862, 0366, 0BE8 


DVA04 


0869 


C871,0875,OBEA 


OVAOS 


08 78 


O8 80.G884.06EC 


0VA06 


0887 


O88F,0893,06EE 


DVA07 


0896 


©89£,08A2,0BF0 


OVAOS 


08A5 


O8A0.08B1.0BF2 


0VA09 


08B4 


OdbC,08C0,0BF4 


0VA10 


08C3 


O8Ca.OPCF.0BF6 


0VA11 


0802 


O8DA.080E.0BF8 


0VA12 


08E1 


O8E9,08E0,OBFA 


DVA13 


O8F0 


O8F8.08FC08FC 


DVA14 


06FF 


0907,0 908, OBFE 


0VA15 


090E 


O916.091A.0CO0 


0VA16 


0910 


O92S.0929.0C02 


0VA17 


092C 


0934.0938.0C04 


DATE 


28FEB66 




EC NO. 


415120 





J 


J 
■") 



1 

1 



n 



i 

1 



PROG 10 
PACE 



0825-0 
10 



J ' 

J " 

J " 

J J 

S * 

» 1 

* .3 

f 1 

S 1 

1 3 



0VA18 


093B 


0VA19 


094A 


0VA20 


0959 


0VA21 


0968 


DVA22 


0977 


0VA23 


0986 


EOIT 


0812 



J5M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 
01 OPC FUNCTION TEST 



0943, 0947, OCOt 

0952,0956, 0CO8 

0961, 0965, OCOA 

0970,0974, OCOC 

097F.0983.0COE 

098E,0992,OCIO 

OA6A,0312,OBB1,OBC3,OBCA,OBD3,OBD9,OB£1,OB£3»08ES, 

OBE7,OaE9,OBEB,0BEO,0BEF,0BFl,OBF3,OeF5,0BF7,0BF9, 

OSFB,OBFD,OBFF,OC01,OC03,OC05,OC07,OC09,OC08,OCOD» 

0C0F,0C1C,0C1D,0CIE,0C1F,0C20,0C21,0C22,0C23,0C24, 

OC25,OC26,OC27,0C2 8,OC29,0C2A,0C2B,0C2C,OC2O,0C2E, 

0C2F ,0C3O,OC3l,0C32,OC33,OC93 

07FF,0AE4,0B90 

0C5E 

0C49,0C58,0C62,0C60 

C7FF.0C5B 

0831,0836 

0840,0845 

084F,08S4 

0656,0663 

0860,0872 

0870,0881 

0888,0890 

C39A.089F 

08A9.08AE 

C8B8.08B0 

C8C7.08CC 

0806,0808 

0&E5,08EA 

06F4.08F9 

0903,0908 

0912,0917 

0921,0926 

0930,0935 

093F.0944 

094E.0953 

0950,0962 

096C,0971 

097B.09B0 

098A,098F 

C606.0A30 

09CD, 0350,0861 

0C70 
07FF.OC7A 

0B2D,0B42,0B76,0C4C,OO40,0C50,0C53,0C55,OC81,0C8S 

0C5A 

0C79.0C86 

0A3C,OA.46,OA58,0A64,0AB2,OAC5,0AD6,OB53,088A,0C4B. 

0C6E.0C70 

0C73 

0C5F 

0A2C 

0A34,0A3 8,0A42»CA46,0A50,0A54,0A5E,0AAD,CA80 OACO. 

OAC3,0ACE,OADl,0AD4 ,0826, 032B, 0B39.0B3C, 0840, 0B4B, 

084E ,0851, 0864, 0BiE,0B71 ,037F,OB83,OC52,OC57,0C5D, 

0C7C 

0A16.OA2E.OC3E 

09A2,09BB,OA9F,OAA1 

080C 

CBEO 

082F, 0833, 0837, C63E, 0842, 0846, 0840, 0851, 0855, 065C. 

C 860. 0864, 868, 66 F, 0873 .08 7 A, 08 7E, 0882, 0889,0680, 

C891,0898 t 069C,08AO,08A7,08Aa,08AF,08B6,OBBA,08BE. 

CSC5,08C9,06C0, 0804, 0808, 080C,OfiE3,08E7,08EB,08F2» 

08F6,08F A, 0901, 0905, 0909, 0910, 0914, 0918, 091F, 0923. 

0927, 092E, 0932, 0936, 0930, 0941, 0945, 094C, 0950,0954* 



DATE 28FES6* 

EC NO. 415120 



PART NO. 2196407 
PAGE 10* 



END 


012E 


EPA 


0808 


ERBSV 


0C72 


ERCAL 


0C74 


EftAOR 


0130 


ETYOO 


083B 


ETY01 


084A 


ETY02 


0859 


ETY03 


0868 


ETY04 


0877 


ETY05 


0886 


ETY06 


0895 


ETY07 


08A4 


ETY08 


08B3 


ETY09 


08C2 


ETY10 


0801 


ETYll 


OSEO 


ETY12 


08EF 


ETY13 


OBFE 


ETY14 


0900 


ETY15 


091C 


ETY16 


0928 


ETY17 


093A 


E7Y18 


0949 


ETY19 


0958 


E7Y20 


0967 


ETY21 


0976 


ETY22 


0985 


ETY23 


0994 


1NIDI 


0A10 


INT 


OAFC 


IPA 


C806 


LGBSY 


0C65 


LOG 


012F 


LO&OT 


0C4E 


L0GD1 


0C75 


L0G02 


0C7A 


LOGER 


0C48 


LOGEl 


0C5B 


L0GE2 


0C61 


LPA 


0807 


HESAG 


OC87 


MLSCF 


0809 


ONE 


OAFO 


PEND 


0C90 


P1BSY 


GC16 


PICMN 


0995 



PROG ID 0825-0 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



01 DPC FUNCTION TESf 



PART NO. 2196*0? 
PAGE II 



PKMi 


09BB 


PICM2 


09CI 


PIO 


07FF 


P1R0 


OB 06 


PIRLO 


0C19 


PI ROD 


OBDO 


PISN 


0B08 


PITBL 


09 D4 


PIl 


0AF3 


?tz 


OAF* 


RAO 


0B01 


ROSN 


OAFE 


ROSW 


OAF! 


READ 


0AF6 


RELDV 


0132 


REOOV 


0131 


RIO 


0800 


RI001 


OAEC 


RIP02 


OBCO 


RLEXT 


0C37 


RLS 


0C39 


RLS1 


0042 


RQEXT 


0C14 


RT01 


0AS2 


RT02 


OBOA 


SENSE 


0AF7 


SPVSW 


OAFF 


START 


0120 


SWO 


0802 


SMI 


0603 


SW2 


0804 


SM3 


0605 


TERM 


060B 



OATE 
EC NO. 



095B.095F, 0963, 096A.096E, 0972, 0979, 097D, 0981, 0988. 

098C, 0990, 0996, 09CF, 0901 

09B2 

09BA 

0A1C 

09A7.09B6 

OA77,OA7B,0A7F,0C3?,OC99 

OAb8,0A8C,0A90,0B17,0C14tOC18 

09A0,O9BF,09C3 

G99. C ,09C1,09C9,0A26,0B6T»0B74 

09B8.0B06 

O9C7,OA23,0S7B,0B86 

09B4,09BD,0B62 

OBOE ,0B23,OB32,OBBB 

0AA2.0B1E 

07FF.0B07.0C1A 

O7FF,08C7,OB0E 

KA93.060C 

0A92 

OBOA 

0A75,0A79,OA7O,0C35 

0AB6,GAB6,GAE0,0B59,0BCF,0C16,0C46,OC72,OC85 

CC3A.0C3B.0C3C 

0A86.0A8A,0A8E»0C12 

0AE9.0AE0 

0AEA.0BC1 

09A9,0A90,0BIC 

OAOE ,0A97,0ADB,0C65 

07FF.0C40 

OAE2,0B8E,OC75 

0AE6 

0B92.0B98 

09AF 

0BCC,0BOA,0Cll,0C34 



c ! 

C 



o s 




c< 

o ! 

ol 

i 
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PACE 
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l«M MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1«00 SYSTEM 



00 FUNCTION TEST 



PART NO. 2 19*4 IS 
PACE 1 



0000 
012C 
012» 






•E6IN 
START 


ORG 

EQU 
EOU 




•♦2047 

300 

BEGINS 




•2700000 
•2700010 
•2700020 




012E 






ENS 


EQU 




START ♦! 




•2700030 




012F 






LOG 


EQU 




EN0»1 




•2700040 




0130 






ERROR 


EQU 




L0J+1 




•2700050 




0131 






REQOV 


EQU 




ERRGRU 




•2700060 




0132 






RELDV 


EQU 




REQOV*! 




•2700070 




0133 






CRCR 

• 
• 


ECO 




REL0V*1 




•2700080 
•2700090 
•2700100 










***** 






PROGRAM STATUS TA»LE **•*••••*• 


•2700110 










• 










•2700120 










* 










•2700130 




07FF 





2700 


FIB 


BC 




/2T00 


PROGRAM I DENT 


•2700140 




OPOO 





0001 


RIO 


oc 




/ooo: 


ROUTINE NUMBER 


•2700150 




0801 





0000 


RAO 


DC 




/oooo 


ROUTINE AOORESS 


•27001*0 




0802 





0000 


SWO 


DC 




/oooo 


BIT SU FUNC 00 PROG 


•2700170 




0803 





0000 


SHI 


OC 




/oooo 


01 REG 


•27-0180 




0804 





0000 


SH2 


OC 




/oooo 


02 MOOE 


e«:70019J 




0805 





5555 


SM3 


OC 




/55S5 


03 PATT 


•2700200 




0806 


1 


0833 


IIP 


OC 




RTO 


INITIALIZATION AOOR 


B27C021O 




08C7 


1 


0838 


LPA 


OC 




RTO 


LOOP PROG AOOR 


•2700220 




0808 


1 


8D2 


EFA 


OC 




RTENO 


PROG END ADDR 


•2700230 




0809 





0000 


NLSCF 


DC 




/OOOO 


1ST NLSCF NORMAL 


•2700240 




080A 





0000 




OC 




/oooo 


2ND NLSCF BUSY 


82700250 




osoa 





0000 




OC 




/oooo 


3R0 NLSCF CK INTR 


•27002*0 




08CC 





FFFF 


TERN 


OC 




/FFFF 


TERMINATOR 


•2700270 




0800 


1 


OAFO 




DC 




PcNO 


LAST AOOR OF PROG 


•27002*0 




080E 





0000 




OC 




/OOOO 




•2700290 




OBOF 





0000 




&£ 




/OOOO 




•2700300 




0810 





0000 




BC 




/OOOO 




•2700310 




0811 





0000 




OC 




/OOOO 




•7700320 




0S12 





0000 


• 


BC 




/OOOO 




•2700330 
•2700340 




0*13 





0000 


EOIT 


DC 




/oooo 


INTR ILSN CHANNEL 


•2700350 




0*14 





0000 


• 
• 
***** 

* 
* 


DC 




/oooo 

INTERRUPT 


TIMER COUNT 


■2700360 
•2700370 
•2700380 
82700390 
82700400 
82700410 




0815 





0000 


OVA 

• 


DC 




/OOOO 


AREA CODE 


•2700420 
•2700430 




Oil* 





0000 


DSM12 


DC 




/oooo 


RETURN AOOR SE 


•2700440 




0817 


0* 


0C0009O8 




XIO 


L 


SENSE 


SENSE OSM AND RESET 


92700450 




0819 


01 


040008F8 




STO 


L 


MAS 


SAVE OSH 


•2700460 




081B 





1000 


KEEP 


NOP 






USE FOR TRAP 


82700470 




08 IC 


01 


4C100823 




8SC 


L 


SCA?;- 


BCH ON PLUS OR ZERO 


8270C460 




081E 


01 


F400080A 


PARI 


EOR 


L 


K8000 


REMOVE INTERRUPT BIT 


82700490 




0820 


01 


6 7000806 




LOX 


L3 


PAROR 


GET NLSCF ENTRY 


B2700500 




0822 





7012 


• 


KDX 




OUT 




•2700510 
•2700520 




032 3 





1002 


SCAN 


SLA 




2 




•2700530 




0824 


01 


4C10082B 




RSC 


L 


COHD,- 


•CH ON PLUS OR ZERO 


•2700540 




0826 


01 


F40008DA 




EOR 


L 


K8000 


REMOVE INTERRUPT SIT 


82700550 




0828 


01 


67000883 




LOX 


L3 


CONT 


GET NLSCF ENTRY 


6*700560 




082 A 





700A 


• 


NDX 




OUT 




•2700570 
•270C580 




0828 





1001 


CONO 


SLA 




1 




•2700590 




082C 


01 


4C100833 




8SC 


L 


FALSE ,- 


•CH ON PLUS OR ZERO 


• ■•700600 




082E 


01 


F40008DA 




EOR 


L 


K8000 


REMOVE INTERRUPT BIT 


•2700610 




0830 


01 


67000883 




LOX 


L3 


CONT 


CONTINUE NO ERROR 


82700620 




0832 





7C02 


* 


NOX 




OUT 




82700630 
82700640 




0833 


01 


670008BC 


FALSE 

• 


LOX 


L3 


FAKE 


CEi NLSCF ENTRY 


•2700650 
82700660 




0835 





6803 


our 


STX 


3 


NLSCF 


SET NLSCF ENTRY 


•2700670 




DATE 




28FEB66 


01MAY66 


04N0V66 




PRCG 10 


082 7-0 


EC NO. 


415120 


415120A 


415233 




PAGE 


1 



4 ( 



{ i 



ISM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1(00 SYSTEM 



DO FUNCTION TEST 



PART 
PACE 



21**415 
1A 



1 < 



1 > 

o 
o 

o 

■ o 



0«3* 


01 


4C 8008 16 


• 
• 


BSC 


I 


0SU12 


RETURN TO MONITOR 


SX 


•2 700*80 
•2700*90 
•2700700 




'Mil 


00 


44S0012C 


GO 


• SI 


I 


BEGIN 


CALL ON NONITOR 




•2700710 




083A 


1 


07FF 


• 
• 


DC 




PIS 


ADOR OF PST 




82700720 
82700730 
•2700740 










***** 






INITIALIZATION HOUfiNE •••••*•• 




S2700750 










* 












•2700760 










• 












82700770 




0«3B 





OOCO 


RTO 


BC 




/OOOO 


RETURN ADDR 


SE 


82700780 




0«3C 


00 


6500FFFF 




LDX 


LI 


/FFFF 


ALL ONES 




S2700790 




0*3 E 





69C4 


• 


STX 


1 


SHI 






•2700800 
82700810 




M3F 


01 


440009C2 


• 


• SI 


L 


REQ 


REQUEST DEVICE 


SC 


82700820 
•2700830 




0«41 





*20B 




LDX 


2 


11 






•2700840 




0842 


01 


C 60 00900 


BUILD 


LO 


L2 


OPCHR 


LOAD FUNCTION 




•2700850 




0»44 





E800 




OR 




OVA 


AOO AREA COO? 




•2700860 




0845 


01 


06000900 




STO 


L2 


OPCHR 


SET IN I/O CONNANO 




82700870 




0*47 





72FE 




NOX 


2 


-2 






•2700880 




084 a 





70F9 


• 


NDX 




• UILO 






82700890 
82700900 




0«49 


01 


440009B7 


• 


• SI 


L 


REL 


RELEASE DEVICE 


SC 


82700910 
•2700920 




0«4» 


01 


45000851 




LDX 


LI 


RTl 






•2700930 




0*40 





69B3 




STX 


1 


RAO 


SET ROUTINE ADDRESS 




8270O940 




0«4E 





69BA 




STX 


1 


NLSCF 


SET NLSCF 




•2700950 




0«4F 


01 


4C800S3B 


• 
• 
***** 

• 
• 


BSC 


I 


RTO 
DIGITAL 


RETURN 
OUTPUT DIAGNOSTIC ***** 


SX 


82700960 
•2700970 
•2700980 
•2700990 
•2701000 
•2701010 




0«Jl 


01 


CC00090C 


RT1 


LDD 


L 


NADOR 


SET TWO REGS FUNC 01 


E 


•2701020 




0SS3 





6SA0 




STX 




RAO 


UPDATE PROS PROCESS 




•2701030 




0«54 


01 


440008E3 


• 


• SI 


L 


PRINT 


USE PRINT ROUTINE 


SC 


•2701049 
•27O1C50 




085* 


01 


6 5C0085C 


CHECK 


LDX 


LI 


FOUND 






•2701060 




0*58 


01 


60000809 




STX 


LI 


NLSCF 






•270 1070 




OSSA 


00 


4C800120 


• 


• SC 


I 


START 


RETURN TO NONITOR 




•2701080 
•2701090 




oasc 


01 


C4000803 


FOUND 


LD 


L 


SHI 


NEH REGISTER STORAGE 




32701100 




085E 


01 


4C280856 




• SC 


L 


CHECK t*Z 


•CH ON MINUS BIT 




82701110 




0860 





1008 




SLA 




a 






82701120 




08*1 


01 


40280856 


• 


• SC 


L 


CHECK, *Z 


•CH ON MINUS BIT • 




82701130 
•2701140 




08*3 


01 


44000943 




BSI 


L 


ADDR 


SET NEH REGISTERS 


SC 


•2701150 




08*5 


01 


4400097F 




BSI 


L 


DATA 


SET UP OAT A 


SC 


8270 1160 




0867 


01 


44000920 




BSI 


L 


MOCHC 


SET UP NODE 


SC 


82701170 




0869 





689T 


• 
• 
• 
• 
• 
* 


STX 




RAD 

TUO NEH 
ANO THE 


UPOATE PROG PROCESS 

REGISTERS HERE SET IN 
PROG HILL BEGIN HERE 




•2701180 
82701190 
82701200 
82701210 
82701220 
82701230 
82701240 




OB*A 





C098 


FIRST 


LO 




SHI 


NEH REGISTER STORAGE 




827O1250 




oa*s 


01 


F400080E 




EOR 


L 


REGST 


STG 0" BOTH REG NUN 




82701260 




0860 


01 


44300943 


• 


BSI 


L 


ADOR.-Z 


BCH ON PLUS 


SC 


82701270 
82701280 




08*F 





C094 




LO 




SM2 


NEH NODE STORAGE 




82701290 




0870 


01 


F40008F9 




EOR 


L 


MOOE 


OLD MOOE STORAGE 




82701300 




0872 


01 


44300920 


• 


BSI 


L 


NOCHG.Z- 


GET NEH MOOE IF PLUS 


SC 


82701*10 
82701320 




0874 





C090 




LO 




SH3 


NEH OATA STORAGE 




82T01330 




0875 


01 


F40008FC 




EOR 


L 


0ATA1 


OLD OATA STORAGE 




82701340 




0877 


01 


4420097F 




BSI 


L 


OATA,Z 


GET NEH DATA IF ♦ - 


SC 


82701350 




DATE 




28FEB64 


0IHAY66 


04N0V66 






PROG 10 


062 7-0 


EC NO. 


415120 


415120A 


415233 






PAGE 


1A 



i ( { i ( I I 4 i I I 

IM MAINTENANCE BIAGNOSTIC PROGRAM FN THE MOO SVSTIN 
M FUNCTION TEST 



i i 



MOT NO. 219*419 
FACE 2 



\ * 4 ' 4 I \ 4 4 « 4 4 4 4 

SI* IM MAINTENANCE BIAGNOSTIC PROGRAM FOR THE 1*00 SYSTEM 

ft OO FUNCTION TEST 



BAM NO. 2 1**4 If 
FACE 2A 



0*79 01 C4000*F9 
087B 100C 
0«7C 01 65800814 
0*TE 01 44280909 

0880 01 0C000908 
0«82 01 040008F8 
0884 01 442009E3 

OSS* vl C4000«F9 

0888 01 4C040«9F 

088* 01 C400090* 
088C F04A 
08*8 01 04000908 
088F 01 4C040896 



0«9l 01 C4000BFE 

0893 F043 

0894 01 D40008FE 

089* 01 C 40008 FF 

0898 E042 

0899 01 EC800800 
089» 0043 

0«9C C040 
0*90 F039 
0S9E DOSE 



0«9F 01 
08A1 
08A2 01 
08A4 
08A5 
08A6 01 
08 A6 
08A9 01 
08 A B 



C4000802 

1009 

4C1008AC 

F035 

1809 

D4000802 

C861 

6C000801 

4037 



08AC 01 440009C2 

08AE 0B4F 

08AF 089* 

0880 C04S 

08B1 01 4C0408B6 



08B3 01 
08B5 



4400098 / 
7010 



0884 00 69000F00 



LI 

SLA 
L»X 
■ SI 
• 

XIO 
STO 

• SI 
• 

LB 

• SC 

* 

LB 

EO* 

STO 

• SC 

* 
* 

LO 

EOR 

STO 

* 

CHREC LO 
AND 
OR 
STO 

LO 
EOR 

STO 



• 

KNOW LD 
SLA 

• SC 
EOR 
SRA 
STO 
LOO 
STX 

• SI 
• 

URITX SSI 

WRITE XIO 

XIO 
* 

LO 

• SC 

BSI 

NOX 



CONT 



L MOOE 

12 
11 EDIT+1 
L TIHEX.+I 

L SENSE 

L HAS 

L CKSENtI 

L MOOE 

L RNOMfE 

L SENSE 

K0001 
L SENSE 
L CHREC, E 



NOBE STMACE 
CHECK FOR DELAY 
TIMER COUNT 
USE TIMER IF S 12*1 

SENSE OSH ANO RESET 

SAVE tSM 

CHECK OSM BITS FOUNO SC 

MOOE OF OF ER AT I ON 

•CH ON SIT IS 

SENSE MILL 4E 000 
•THEN EVEN 

BCH ON BIT 19 



***** ***************t ••••»•*••• 
THIS SECTION IS FOR THE PROGRAM 
CONTROL WRITE. THE REGISTER 
NUMBER IS CHAN5E9 EACH TIME AN* 
THE OATA EVERY OTHER TIME SO A 
COMPARISON MAY BE MADE BETWEEN 
TWO REGISTERS USING THE SAME 
OATA. 
••»»«»«*♦»•••»♦#••»*»»•*»•••••• 



XI OUR 
K0001 
XIOWR 



XIOWRM 
KFFOO 
I RECCK 
XIOWR*! 

RECCK 
K0001 
RECCK 



COMMON WRITE COMMAN* 
CHANGE OATA AOM 



REMOVE RE6 NUMBER 
SET IN REG NUMBER 



CHANGE REG EACH TINE 
•001 THEN EVEN 



CHECK FOR ONE TIME PRINTOUT ••• 



swo 

9 

WRITXt- 
K8C00 
9 

swo 

MCHK 

RAO 

PRINT 

REQ 

XIPMR 

CNTL 

MOPE 
CONTX.E 
REL 
GON 



FROG CNTL STBRACE 

BCH ON NOT PRINT 
REMOVE BIT 12 

RESTORE CONTROLS 
MSG- CK CNTL STATUS 
UPDATE PROG PROCESS 
USED TO PRINT CNTLS SC 

REQUEST CHANNEL SC 

WRITE FOR BCC OR BPC 

INITIATE ?ULSE IF BB 



CONTX LDX LI /OFOO 



MOOE OF OPERATION 
BCH ON OCC MODE 
RELEASE CHANNEL 



TIMER COUNT 



SC 



DATE 
EC NO. 



28FEB66 
419120 



01MAY66 
419120A 



14N0V66 
419233 



•27013*0 
S2701370 
82701380 
•2701390 
•2701400 
•2701410 
•2701420 
•2701430 
•2701440 
•2701490 
•27014*0 
•2701470 
•2701480 
•2701490 
■2701900 
•2701910 
■2701920 
■2701930 
•2701940 
82701390 
•* .'01940 
82701970 
•2701980 
82701590 
•2701600 
•2701610 
•2701*20 
•2701*30 
•2701640 
■2701690 
•2701660 
•2701*70 
•2701*80 
82701*90 
92701700 
•2701710 
•2701720 
•2701730 
•2701740 
•2701790 
•2701760 
•2701770 
•27017*0 
B2701790 
82701800 
82701810 
82701820 
82701830 
82701840 
82701850 
82701860 
82701*70 
82701880 
82701890 
82701900 
82701910 
82701920 
B2701930 
82701940 
82701950 
827G1960 
•2701970 
92701980 
•2701990 
82702000 
•2702010 
•2702020 
•2702030 



PROG ID 
PAGE 



* 


t 


9 


• 





t 


n 


• 



o 












r i 





O 


.-} 





n 


n 



0*27-0 

2 



08B8 


01 


44000909 


• 


• SI 


L 


TINEX 


USE TIMING ROUTINE 


SC 


•2702040 
•2702090 




08SA 





C850 




LOO 




NNINT 


NO INTERRUPT RECO 




82702060 




08*8 





7003 


• 


NOX 




NEXT 






•2702070 
■2702080 




MSC 





C893 


FAKE 


LOO 




NFAIO 


FALSE INTERRUPT 




•2702090 




0880 





7001 


• 


NOX 




NEXT 






•2702100 
•2702110 




08BE 





CS57 


PAR OR 


LOO 




NPAR 


PARITY ERROR 




•2702120 




08 BF 





0836 


NEXT 


STD 




MSG 






82702130 




o«co 


01 


44000987 




SSI 


L 


REL 


RELEASE CHANNEL 


SC 


82702140 




08C2 





C833 




lDO 




MSG 






82702130 




0*C3 


01 


6C0008C1 




STX 


L 


RAO 


UPBATE FROG PROCESS 




82702160 




0«C9 





4010 


• 


BSI 




PRINT 






82702170 
82702180 




3*C6 


01 


C4000B02 


GON 


LO 


L 


SWO 


PROG CONTROL STORAGE 




82702140 




oaca 


01 


4C040800 


• 


• SC 


L 


RTECK, E 


BCH ON BIT 19 




82702200 
82702210 




08CA 


01 


690O0B6A 




LOX 


LI 


FIRST 


GET MLSCF ENTRY 




•2702220 




08CC 


01 


60000809 




STX 


LI 


HLSCF 


SET MLSCF 




82702230 




MICE 


00 


4C800120 


• 


BSC 


1 


START 


RETURN TO MONITOR 


sx 


•2702240 

•2702290 




0800 


00 


4C80012E 


RTECK 

• 
• 
***** 

• 
• 


■ SC 


I 


END 
ROUTINE 


MONITOR ENB CALL 

END •»•*•»•♦»•♦♦••••••• 


SC 


■2702260 
82702270 
82702280 
82702290 
82702300 
82702310 




0802 





0000 


RTENO 


OC 




/OOOO 


RETURN AOOR 


SE 


82702320 




0(03 


01 


440009B7 




BSI 


L 


REL 


RELEASE CHANNEL 


SC 


82702330 




0«09 


01 


4C800802 


• 


BSC 


I 


RTENO 


RETURN TO USER 


X 


82702340 
82702350 










*************************************************** 


82702360 










* 












82702370 










* 












82702380 










* 












•2702390 




0807 





0001 


K0001 


OC 




/OOOi 


CONSTANT 




•2702400 




0808 





0006 


KCOO* 


DC 




/0006 


CONSTANT 




•2702410 




0809 





0080 


ROOM 


OC 




/0080 


CONSTANT 




•2702420 




080 A 





8000 


K8000 


OC 




/•OOO 


CONSTANT 




•2702430 




0808 





FFOO 


KFFOO 


OC 




/FFOO 


CONSTANT 




•2702440 




080. 


c 


F400 


NORN 


OC 




/F400 






•2702450 




08D0 


1 


08FA 


REGCK 


OC 




REG1 


STARTING REGISTER 




82702*60 




MOE 





0000 


REG ST 


OC 




/OOOO 


STG FOR BOTH REG NUN 




82702470 




080F 





0000 


SAVE 


DC 




/OOOO 


REMAINING OSW BITS 




82702480 




08E0 





0000 




DC 




/OOOO 


SHIFT COUNT 




82702490 




08E1 





7001 


SING 


OC 




/7001 






82702500 




0«E2 





0000 


TIMER 

• 
• 


OC 




/OOOO 


STORAGE 




82702910 
•2702520 
•2702930 










•«•*• 










82702940 










* 












•2702990 










* 












82702560 




0«E3 





0000 


PRINT 


OC 




/OOOO 


RETURN AOOR 


SE 


82702570 




0«E4 





0811 


• 


STD 




MSG 


SET MSG IN OUTPUT 




827C2980 
82702990 




0«E9 


00 


44S0012F 


TRY 


BSI 


I 


LOG 


CALL ON MON LOGGING 




82702600 




08E7 


1 


08F4 




DC 




LGOUT 


AODR OF MESSAGE 




82702610 




08E8 


I 


08E0 




OC 




LBUSY 


LOG BUSY AOOR 




82702620 




08E9 





0000 


* 


OC 




/OOOO 






82702630 
82702640 




0«fcA 


01 


69S0OSE3 




LOX 


11 


PRINT 


GET MLSCF ENTRY 




82702650 




08EC 





7002 


• 


NOX 




0UT2 






82702660 
82T02670 




08E0 


01 


650O08E5 


LBUSY 


LOX 


LI 


TRY 


GET MLSCF ENTRY 




82702680 




08EF 


01 


60000809 


0UT2 


STX 


LI 


MLSCF 


SET MLSCF 




8270269C 




08F1 


00 


4C800120 


• 


BSC 


I 


START 


RETURN TO MONITOR 


SX 


82702700 
82702710 




DATE 




28FEB66 


01NAY6* 


04N0V66 






PROG 10 


0827-0 


EC NO. 


419120 


415120A 


419233 






PACE 


2A 



1 i < 



I, * « k I 4 t 

IM NAINTENANCE DIAGNOSTIC PROCRAN FOR THE 1800 SYSTEM 



PART Ml. 2194415 
PACE I 



f 

r 

f 
r 



BO FUMCTION TEST 









• 








82702720 










*•*•* 




•EVICE 


STATUS TABLE ••*••••••** 


82702730 










• 








82702740 










• 








B2702750 




08F4 




0000 




•ss 


E 




•2702760 




08F4 





0007 


LGBUT 


DC 


/OOOT 


HORO COUNT 


82702770 




08FS 





0000 




DC 


/OOOO 


HEX CONTROL 


82702780 




08F6 





0000 


MS6 


oc 


/OOOO 


ERROR MESSACE NUMBER 


82702790 




08F7 





0000 




oc 


/OOOO 


COSEO MESSACE 


82702800 




08F8 





0000 


HAS 


oc 


/OOOO 


ERROR OP. LAST BSN 


82702810 




08F9 





0000 


MOOE 


DC 


/OOOO 


NODE OF OPERATION 


82702820 




OSFA 


u 


0000 


REC1 


DC 


/OOOO 


RE6 ADBR 1 


B2T02830 




08FB 





0000 


REG2 


OC 


/OOOO 


RE6 ADOR 2 


•2702840 




0«FC 





0000 


OATAl 


oc 


/OOOO 


PATTERN 1 


•2702850 




08F0 





0000 


0ATA2 

• 


DC 


/OOOO 


PATTERN 2 


•2702860 
82702870 




08FE 


1 


OSFC 


KIOMR 


OC 


BATAl 




82702880 




08FF 





0000 




OC 


/OOOO 


COMMON WRITE 


82702890 




0900 


1 


OSFC 


•PC MR 


OC 


OATAl 




82702900 




0901 





0100 




OC 


/0100 


PMC CNTL WRITE 


•2702910 




0902 


1 


0975 


OCCUR 


oc 


CONTl 




82702920 




0903 





0500 




DC 


/OSOO 


INITIAL MRITS 


B2 702930 




0904 





0000 


•LAST 


OC 


/OOOO 




82702940 




0905 





0420 




DC 


/0420 


•LAST CHANNEL INST 


•2T02950 




0906 





0000 


CNTL 


OC 


/OOOO 




82702960 




0907 





0400 




DC 


/0400 




•2702970 




0908 





0000 


SENSE 


DC 


/OOOO 




•2702980 




0909 





0701 


• 
• 
• 
• 


OC 


/0701 


SENSE BSH ANB RESET 


82702990 
82703000 
•2703010 
•2703020 
•2703030 




090A 





A001 


NCHK 


OC 


/A001 




82T03040 




090 • 





cccc 


• 


oc 


/CCCC 


TYPE TO CHECK »ATA 


82703050 
82703060 




090C 





C001 


RAO OR 


oc 


/C001 


NS6 NUMBER 


82703070 




0900 





OOAO 


* 


•c 


/OOAO 


ENTER REG AB8RESSES 


•270*080 
82703090 




090E 





E001 


NSUSV 


oc 


/E001 




82703100 




090 F 





A BOO 




oc 


/AOOO 


SUSY 


•2703110 




0910 





£002 


UFA 10 


oc 


/E002 




•2703120 




0911 





FA10 




oc 


/FA10 


FALSE INTERRUPT 


•2703130 




0912 





E003 


NERR 


DC 


/E003 




•2703140 




0913 


9 


BIEE 




oc 


/BIEE 


BITS IN ERROR 


82703150 




0914 





6004 


NBITF 


DC 


/E004 




•2703160 




091S 





008F 




DC 


/DOBF 


BIT FAILEO TO 60 OFF 


82703170 




0916 





£005 


NPAR 


DC 


/E005 




82703180 




0917 





OOAE 




DC 


/OOAE 


PARITY ERROR 


82703190 




0918 





E006 


MNINT 


OC 


/E006 




82703200 




0919 





ICED 




DC 


/1CE0 


NO INTERRUPT 


•2703210 




091* 





£007 


NRONC 


DC 


/E007 




82703220 




091 B 





BAOO 




DC 


/»kOO 


CVCLE STEAL ERROR 


82703230 




091C 





£008 


MERRC 


•>c 


/E008 




82703240 




0910 





DOC 8 




DC 


/OOCB 


CHAN BLAST FAILEB 


82703250 




091 E 





E009 


NCNRJ 


DC 


/E009 




82TC3260 




091F 





OOCC 


• 
« 


DC 


/DOCC 


COMO REJECT FAILEO 


82703270 
82703280 
82703290 










**••* 




SET NEW MOOE OF OPERATION •»••• 


92703300 










• 








82703310 










• 








82703320 




0920 





0000 


NDCHG 


DC 


/OOOO 


RETURN AOUR SE 


82703330 




0921 


01 


C4000S04 




LO 


L SH2 


NEW MOOE OF OPER 


82703340 




0923 





0009 




STQ 


NODE 


OLO MOOE STORAGE 


J2T03350 




0924 


01 


4C04092E 


• 


• SC 


L OCCE 


•CH ON BIT 15 


•2703360 
•2703370 




092 6 


01 


650008FC 




LDX 


LI OATAl 




•2703380 




0928 





6905 




STK 


1 XIOWR 


SET IN I/O COMMAND 


82703390 




DATE 




28FEB66 


01MAV66 


04NOV66 




PROS IB 


0827-0 


EC NO. 


415120 


415120A 


'.15233 




PAGE 


3 



\ 


* s 


9 


9 


9 


t 


• 


t 


• 


9 


• 


1 








o 












r 



(". 



r, 



n 



i o 



i K . * 4. « < 4 

IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1*00 SYSTEM 
00 FUNCTION TEST 



( { ( { i 



0929 





COD 7 




LO 


0PCKR*1 




092 A 





EOBO 




A NO 


KFFOO 


RENOVE OLO RES 


092 • 





E8CE 




OR 


REG1 


AOD NEM REG 


092 C 





D002 




STO 


XIOWR+l 


SET IN I/O CONNANO 


092 D 





7007 


• 

occ 


MOX 


BUILT 




092 E 





COCA 


LO 


NOOE 


NEW MOOE OF OPE» 


092F 





E0A8 




ANB 


K0004 


SAVE BITS 13 * 14 


0930 





1005 




SLA 


5 




0931 





ESDI 




OR 


OCCUR *1 




0932 





OOCC 


• 


STO 


XIOWR*! 


SET IN I/O CONNANO 


0913 





COCE 


LB 


BCCMR 




0934 





00C9 


• 

• UILT 


STO 


XIOWR 


I/O CONNANO BUILT 


0935 





C0C3 


LO 


NOOE 


NOOE OF OPERATION 


0936 





1008 




SLA 


8 




0937 


01 


4C28093C 




BSC 


L BUILL ,«* 


BCH ON MINUS 


0939 





COCO 




LO 


CNTL+1 




093A 





EOAO 




AND 


KFFOO 


RENOVE PULSE OUTPUT 


0938 





7002 




MOX 


ALL 




093C 





COCA 


BUILL 


LO 


CNTL* I 




0930 





£198 




BR 


K0080 


AOO PULSE OUTPUT 


093E 





OOCB 


ALL 

* 

• 
• 
• 


STO 


CNTL*! 




091F 





4003 


BSI 


AOOR 


GET NEM MEG NUMBERS SC 


0*40 





403E 


BSI 


BATA 


SET NEM PATTERN SC 


0*41 


01 


4C 800920 


BSC 


I NOCHG 


RETURN TM PROG SX 








• 
• 




. SET MEM 


REGISTERS **•*•••••••** 


0*43 





OOOO 


• 
ADOR 


OC 


/OOOO 


RETURN AOOR SE 


0944 


01 


C 4000803 




LO 


L SMI 


NEM REGISTER STORAGE 


0944 





0097 




STO 


REGST 


STCRE NEM REGISTERS 


0947 





1888 




SRT 


• 


ONLV REG1 IN ACC 


0948 





00B1 




STO 


RE61 


UPOATE REG1 


0*4* 





1008 




SLA 


• 


CLEAR ACC 


094 A 





1088 




SLT 


• 


ONLY REGZ IN ACC 


0948 





OOAF 


$ 


STO 


REG2 


UPOATE RE62 


094C 


3 


COAC 




LO 


MOOE 


NOOE OF OPERATION 


0940 


01 


4C040955 


• 


BSC 


L CKDCCtE 


•CH ON BIT IS 


094F 





C0B1 


LO 


DPCMR*1 




0950 


01 


E 4000808 




ANB 


L KFFOO 


REMOVE MODIFIER 


0952 





E8A7 




OR 


REG1 


ADD NEW REG NUMBER 


0953 





00A8 




STO 


XI0MR*1 


UPDATE I/O COMMAND 


0954 





7012 


• 
CKOCC 


NOX 


OONE 




0*55 





1*01 


SRA 


1 




0956 


01 


4C040963 


B) 


BSC 


L PUT.E 


•CH ON BIT 14 








• 
B) 




UPOATE OUTPUT TABLE FOR RANDOM 


095* 





COAl 




LO 


RE61 


SET RES ADDRESS 


0959 





0013 




STO 


C0NT3*2 




09SA 





0016 




STO 


C0NT3*6 




0958 





001A 




STB 


C0NT1*1 




095C 





001D 


B) 


STQ 


CONTl. 5 




0950 





C090 




LO 


REC2 


GET REG ADORESS 


095 E 





0010 




STO 


C0NT3*4 




095F 





0013 




STO 


C0NT3*8 




0960 





0017 




STO 


C0NT1*3 




BATE 




28FEB66 


01MAV66 


04NOV66 




EC NO. 


415120 


415120A 


415233 





PART 
PAGE 



•2703400 
•2703410 
82703420 
82703430 
82703440 
82703450 
82703460 
•2703470 
•27034B0 
82703490 
82703300 
82703510 
82703520 
•2f03U« 
•2703540 
82703550 
8270 3840 
82703570 
82703580 
82703590 
S2 703600 
82703610 
82703620 
82703630 
82703640 
82703650 
82703660 
82703670 
82703680 
827034(0 
82703700 
82703710 
•2703720 
•2703730 
•2703740 
•2703750 
•2703760 
82703770 
82703780 
•2703790 
8270*800 
82703810 
•2703*20 
•2703830 
•2703840 
82703850 
82703860 
82 703870 
82703880 
82703890 
92703900 
•2703910 
82703920 
82703930 
82703940 
82703950 
82703960 
82703970 
82703980 
•2703990 
82 704000 
•2704010 
82704020 
•27040 30 
•2704040 
8270405P 
82704060 
82704070 



PROG ID 
PAGE 



2194415 
3A 



0827-0 
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MM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



MMT NO. 2194419 
PASS 4 



BO FUNCTION TEST 



0941 





D01A 




STS 




C0NT1*T 




•2704080 




09*2 





7004 


• 


NOX 




DONE 




•2704090 
•2704100 










• 






UPDATE DWT TABLE FOR SINGLE 


•2704110 










• 










•2704120 




09*> 





C096 


PUT 


LD 




8E61 


6ET RES ABBRESS 


•2704130 




0964 





001 1 




ST« 




C0NT141 




•2704140 




0965 





C094 




to 




REC1 


SET RES ABBRESS 


82704190 




0966 





0006 


» 
• 


STB 




C0NT3*2 




•2704160 
•2704170 

•2704180 




0967 


01 


6C000801 


BONE 


STX 


L 


RAO 


UPDATE FRBS PROCESS 


82704190 




0969 


01 


4CS00943 


6 
• 


BSC 


I 


AOOR 


RETURN T6 PROS 


•2704200 
•2704210 
82704220 










«••*• 






OUTPUT TABLf FBR 99 •••#••*••• 


82704230 










6 










82704240 










• 








RAN80N OR SINGLE 


82704250 










• 










•2704260 




096* 


1 


0968 


C0NT3 


DC 




C0NT3 


CAR CHECK 


82704270 




096C 





0008 




BC 




/OOOS 


SC-0OWC-6 SC-OOMC-* 


6* 1042*0 




0960 





0000 




OC 




/OOOO 


RE61 RE61 


82704290 




096 E 





0000 




DC 




/oooo 


0ATA1 0ATA2 


82704300 




096F 





0000 




OC 




/0000 


REG2 0ATA2 


82704310 




0970 





0000 




OC 




/oooo 


0ATA1 0ATA2 


82704320 




0971 





0000 




BC 




/oooo 


REG1 0ATA2 


82704330 




0972 





0000 




BC 




/oooo 


•ATA2 0ATA2 


•2704340 




0973 





0000 




OC 




/oooo 


REG2 0ATA2 


•2704350 




0974 





0000 




OC 




/oooo 


0ATA2 CATA2 


•2704360 




0971 





C008 


C0NT1 


OC 




/COO 8 


SC-llMOB SC-11MC-8 


82704370 




0976 





0000 




OC 




/OOOO 


REfil REC1 


S2T04360 




0977 





0000 




OC 




/oooo 


0ATA1 DATA1 


82704390 




0978 





0000 




BC 




/oooo 


REC2 0ATA1 


•2704400 




0979 





0000 




DC 




/oooo 


BATA1 0ATA1 


•2704410 




097A 





0000 




BC 




/oooo 


REG1 0ATA1 


•2704420 




0978 





ooco 




DC 




/oooo 


BATA2 0ATA1 


82T044SC 




097 C 





0000 




OC 




/oooo 


REG2 0ATA1 


82704440 




0970 





0000 




OC 




/oooo 


BATA2 0ATA1 


82704450 




097E 


1 


0968 


C0NT2 

# 
9 

• 
• 


OC 




C0NT3 
SET NEM 


CHAINING AOORESS 
BATA PATTERN •••*•••#•• 


82704460 
•2704470 
•2704480 
82704490 
62T04500 
•2704510 




097F 





0000 


OAT A 


OC 




/OOOO 


RETURN AOOR SE 


•2704920 




0980 


01 


C40008F9 




LO 


L 


MODE 


NOOE OF OPERATION 


•2704530 




0982 





1008 




SLA 




11 




82704540 




0983 


01 


4C100989 


* 


• SC 


L 


STAND t- 


BCH ON PLUS «R ZERO 


82704950 
82704560 




0985 


01 


C40008E1 




LO 


L 


SIN6 




82704570 




0987 





OOOE 




STO 




SPiMl 


SET SINCLE PATTERN PR01 


82704580 




0988 





D01F 


• 


STO 




SPSW2 


•SWITCHES PR02 


82704590 
82704600 




0969 


CI 


C4000SF9 


STAND 


LO 


L 


NODE 


NOOE OF OPERATION 


82704610 




096B 





1801 




SAA 




1 




82704620 




098C 


01 


4C04099F 


* 


• SC 


L 


POT.E 


BCH ON BIT 14 


82704630 
82704640 




09SE 


01 


C4000805 




LO 


L 


SW3 


NEN DATA PATTERN 


82704650 




0990 


01 


D40008FC 




STB 


L 


DATA1 




82704660 




0992 





0008 




STO 




Ck.m+3 




82704670 




0993 





oooc 




STO 




C0NT3»5 




82704660 




0994 


a 


0062 




STO 




C0NT1+2 




62704690 




0995 





00E3 


• 


STO 




C0NT1+4 




•2704700 
•2704710 




0996 


01 


F400080C 


SPSW1 


EOR 


L 


TERN 


REVERSE BATA PATTERN PN01 


82704720 




0998 


01 


040008F0 




STO 


L 


0ATA2 




62704T30 




099 A 





0007 




STO 




C0NT3W 




82704740 




0998 





0006 




STO 




C0NTS»9 




82704750 




CATE 




28FE866 


01NAV66 


04N0V46 




PROG 10 


0627-0 


EC NO. 


419120 


419120A 


419233 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 



PART NO. 2 1964 IS 
PACE 4A 



DO FUNCTION TEST 



099C 





OOOE 




STO 




CON T 1*6 






•2704760 


099B 





OOOF 




STO 




C0NT1+8 






B2704770 


099 E 





7012 


• 


NOX 




OONT 






82704780 
•2704790 


099F 


01 


C *O00805 


POT 


LO 


L 


SN3 


NEM DATA PATTERN 




•2704800 


09A1 


01 


040008FC 




STO 


L 


0ATA1 






•2704610 


09A3 





6207 




LD* 


2 


7 






•2T04820 


09A4 


01 


04000976 


LOOP 


STO 


L2 


COfeTl+l 






•2704830 


09A4 





72FF 




NOX 


2 


-1 






•2704840 


09AT 





70FC 


* 


NOX 




LOOP 






•2704650 
82704840 


09A8 


01 


F400060C 


SPSU2 


EOR 


L 


TERN 


REVERSE OATA PATTERN 


PN02 


82704870 


09AA 


01 


040008r0 




STO 


L 


0ATA2 






82704830 


09AC 





6207 




LOX 


2 


7 






82704890 


09AB 


01 


04000960 


LC3PA 


STO 


L2 


CONT3«2 






82704900 


09AF 





72FF 




NOX 


2 


-1 






B2704910 


09B0 





70FC 


• 


NOX 




LOOPA 






82704920 
•2704930 


09B1 


01 


C400060C 


OONT 


LO 


L 


NORN 






82704940 


0963 





00E2 




STO 




SPSW1 


SET SINGLE PATTERN 


PR01 


82704950 


09B4 





0CF3 


• 


ST6 




SPSU2 


•SWITCHES NORNAL 


PR02 


82704960 
62704970 


09B9 


01 


4CS0097F 


• 
• 

• 
« 


• SC 


I 


DATA 
RELEASE 


RETURN TO PROG 
DEVICE ••**••••*••**••• 


sx 


82704960 
62704990 
82705000 
62705010 
•2705020 
•2705030 


09B7 





OOOO 


REL 


DC 




/OOOO 


RETURN AOOR 


SE 


62705040 


0968 


01 


C4000S13 




LO 


L 


EOIT 






•2705050 


096A 


01 


4C1009C0 


• 


BSC 


L 


6000,- 


CHAN ALREADY RELEASE 




82705060 
62705070 


ODBC 


00 


44800132 




BS1 


I 


RELDV 


REL OEVICE TO NON 


SC 


82705080 


098E 


1 


0813 




OC 




EOIT 


INTR ANO CHANNEL 




02705090 


09BF 


1 


OSOC 


• 


OC 




TERN 






•2705100 
•2705110 


OOCO 


01 


4CB009B7 


GOOD 

• 
• 
• 

• 
• 


BSC 


I 


REL 
REOUEST 


RETURN TO PROG 
DEVICE •••♦•*•*•**••*•• 


sx 


•2705120 
•2705130 
82705140 
82709190 
•2709160 
A270S170 
62705180 


09C2 





OOOO 


RES 


BC 




/OOOO 


RETURN AOOR 


SE 


82705190 


09C3 


01 


C 4000813 




LO 


L 


EOIT 






82705200 


09C9 


01 


4C2809C0 


• 


BSC 


L 


OUTlt»Z 


BCH HAVE CHANNEL 




82705210 
82705220 


09C7 


00 


44800131 


ASK 


BSI 


I 


REQOV 


RES BEVICE FROM HON 


SC 


62705230 


09C9 


1 


09CF 




DC 




STOBY 


BUSY AOOR 




62705240 


09CA 


1 


0813 




OC 




EOIT 


INTR ANO CHANNEL 




62705250 


09CB 


1 


0815 




OC 




OVA 


AREA CODE 




62705260 


09CC 


1 


OSOC 


• 


OC 




TERN 






82705270 
82705280 


09C0 


01 


4CS009C2 


OUTl 

* 


BSC 


* 


RES 


RETURN TO PROG 


sx 


82705290 
62705300 


09CF 


01 


650009C7 


STOBY 


LOX 


LI 


ASK 


GET NLSCF IF BUSY 




62T05310 


0901 


01 


bOOOOSOA 




STX 


LI 


NLSCF* I 


SET NLSCF 




82705320 


0903 


00 


4CS0G120 


• 
* 


BSC 


I 


START 


RETURN TO MONITOR 




82705330 
82705340 
82705350 








•*•♦# 






TIMER FOR A GIVEN TIME *•*•»••• 




82705360 








• 












62705370 








• 












62705330 


0909 





OOOO 


T1MEX 


OC 




/OOOO 


RETURN AOOR 


SE 


82705390 


0906 


01 


600008E2 




STX 


LI 


TINER 






82705400 


0908 


01 


6500090E 


TINEO 


LDX 


LI 


HERE 






62705413 


090A 


01 


60000808 




STX 


LI 


NLSCF42 






82705420 


090C 


00 


40800120 




BSC 


I 


START 


RETURN TO MONITOR 




82709430 


OATE 




28FEB66 


01NAV66 


04NQV66 






PROG ID 0327-0 


EC NO. 


415120 


41*120* 


415233 
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IBM MAINTENANCE OIAGNCSTIC PROGRAM FMA TMC I §00 SYSTEM 



SO FUNCTION TEST 



09BE 01 T4FF0SE2 
0*E0 TOFT 
09E1 01 4CB009DS 



09E3 
09E4 (. 
0*E9 
ME* 01 
04ES 01 
09EA 01 
0*EC 01 

0*EE 01 
0*FO 01 
09F2 01 
09F4 01 
09F* 01 
09FB 01 

0*FA 01 
09FC 01 
0*FE 01 



0000 

630F 

1340 

F 40008 DA 

D40003DF 

6F0008E0 

4T800A02 

C40008DF 
4T80C8E0 
4C2009E5 
0C000908 
D4000PF8 
4C9309E3 

CC000914 

6C000801 
44000«E3 



OAOO 01 4C000BD0 



0A02 


1 


0A12 


OAO 3 


1 


0A6J 


0A04 


1 


0AA3 


OAO 5 


1 


0*63 


OAO* 


1 


0A63 


OAOT 


1 


0A63 


0A08 


1 


0A63 


OAO* 


1 


0A43 


OAOA 


1 


0A63 


OAOS 


1 


0A63 


OAOC 


1 


0A63 


OAOO 


1 


0A63 


OAOE 


1 


0A63 


OAOF 


1 


0A63 


0A10 


1 


0A51 


0A11 


1 


0AA3 



0A12 

0A13 01 
0A1S 01 
0A1T 01 
0A19 01 
0A1B 01 
OA10 01 
0A1F 



0000 

CC00090E 

6C000801 

4400 08E 3 

440009C2 

OC000908 

4C040A20 

T02F 



0A20 1004 
0A21 01 4C100A29 
0A2 3 01 CC00091A 
0A25 01 6C000801 
0A2T 01 440008E3 



OATE 
EC NO. 



28FEB66 
415120 



MERE 






MX L TIME*. -I 
NOX TIMEO 

ESC I TINEX 



RETURN T0 PROGRAM 



SI 



CHECK BSM SITS ••••**••••••»••* 



CKSEN 



•C /OOOO 

LOX 9 15 

A6AIN SLCA 3 

EOR L KtOOO 

STS I SAVE 

STX IS SAVE* I 

SSI II OSM 



RETURN AMR 



SE 



LB 
LOX 
• KC 

XI8 

STO 

ssc 

LOO 
STX 
SSI 



L SAVE 

IS SAVE* I 

L AGAIN. I 

L SENSE 

L MAS 

I CKSEN ,«- 

L NSITF 

L RAO 

L PRINT 



REMOVE MT FOUN* 

SAVE REGAINING SITS 

SAVE SHIFT COUNT 

6ET BSM SIT THATS ON SC 



BCH ON FLUS MR MINUS 

SENSE SSN 

SAVE OSM 

RETURN IF ZERO SI 

NSC- OSM SIT FAILEB 

UPOATE FROG PROCESS 

TO FRINT SIT FAILURE SC 



■SC L RTECK 



* 
OSM 



SC 

oc 
oc 

oc 

SC 
OC 

oc 

BC 

oc 
oc 

DC 
BC 

OC 

oc 

BC 

DC 



SUSY 
ERR1 
ERRl 

ERR I 

ERR1 

ERRl 

ERR1 

ERRl 

ERRl 

ERRl 

ERRl 

ERRl 

ERRl 

ERRl 

FULSE 

ERRl 



TERMINATE FR06RAN 



BIT tS SUSY 
14 
IS 
12 
11 
10 
* 

a 

T 

* 

9 

4 

•INT 3 

• INT 2 

1 

• INT 



S« 



CYCLE STEAL BUSY 

COMMO REJECT 
SCAN COMPLETE 
FULSE TIMER 
PAR in ERROR 



•Ulr ROUTINE •*•••••*•••••••••• 



SUSY OC 
LOO 
STS 
SSI 
8SI 

xia 
ssc 

MOX 



ssv 



SLA 
SSC 
LOO 
STX 
BSI 



/OOOO 

M8USV 

RAO 

PRiNT 

REQ 

SENSE 

■ S>.E 

CK81T 

4 
XXX,- 

MR0N6 

RAO 

PRINT 



RETURN ADOR SE 

ISO- BUSY 

UPOATE PR06 PROCESS 

TO PRINT BUSV SC 

REQUEST CHANNEL 

SENSE OSM 

BCH ON BUSV 



ERROR NSC 

USE PRINT ROUTINE 



01MAY66 

415120A 



i"4N0V6* 
415233 



PART MR. 2 1**4 IS 
FACE S 



8270*440 
•2*05490 

•270944.0 
S2T0S4T0 
•2T094S0 
82709490 
82705500 
82709510 
S2T05520 
82705530 
S2T09940 
82705550 
827053*0 
82T0SS70 
82705580 
82705590 
82705*00 
8270*610 
82T09*20 
•2705630 
fe.f09640 
82705*30 
82705660 
•2705*70 
82705680 
•2705690 
•2T05T00 
•2705710 
•2705720 
C2T05730 
•2705740 
•2705750 
•2*097*0 
82705770 
<12T057«0 
S2T09790 
•2705*00 
•2705810 
82705820 
•270*830 
•2705840 
•2705850 
•2705860 
82705*70 
•2705880 
82705890 
•2705900 
■2705910 
•2705920 
•2705930 
•2705940 
•2705950 
■2705960 
•2709970 
82705980 
•2705990 
•2706000 
■2706010 
•270*020 
•2706030 
•270*040 
•2706050 
£2706060 
•2706070 
•2706000 
•2706090 
•2 706100 
•2706110 



PROC 10 
FACE 



lA 


9 
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t 
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9 





I 
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1 




9 




D 
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IBM MAINTENANCE DIAGNOSTIC PROGRAM FOR THE 1800 SYSTEM 

00 FUNCTION TEST 



0A29 01 C4000S02 
0A2B 100 A 
0A2C 01 4C280A3A 

0A2E 01 0C0C0904 
0A30 01 OC000908 
0A32 01 040008FS 
0A34 01 4C040A3T 
0A3* 701* 

OAST 01 CC00091C 
OAS* 7011 



OASA 01 C40007FF 
0A3C 00 04000133 
OASE 01 OC0008FE 



0A40 
0A41 



*102 

4093 



0A42 01 0C000908 
0A44 01 040008F* 
0A4* 01 4C040A49 
0A48 700* 



0A49 01 
0A4B 01 



CC00091E 
6C000801 



0A40 01 440008E3 



0A4F 01 4C800A12 



OAS I OOOO 
0A52 6103 
0A53 4081 



0A94 01 
0A9* 01 
0A9S 
0A99 01 
0A9B 01 
0A90 01 
0A9F Oi 
0A61 01 



0A*3 
0A*4 01 
0A6* 01 
OAAS 01 
0A6A 01 



0C0O09O9 

040008F8 

1002 

4C900A91 

CC000914 

6C000801 

440008E3 

4CS00AS1 



OOOO 
CC000912 
6C000801 
440008E3 

4C800A63 



OA*C 
0A6C 



OOOO 



OATE 
EC NO. 



2BFEB66 
415120 



XXX 



NOTE 
REJT 



LO 

SLA 

BSC 

XIB 

XIO 
STO 
SSC 
MOX 

LOO 
NOX 



LO 

STO 

XIO 

LBX 
BSI 

XIO 
STO 
BSC 
NOX 



CMORJ LOO 



COT 



STX 
BSI 



CKBIT BSC 

• 

PULSE OC 
LOX 
SSI 

• 

XIO 
STO 
SLA 
BSC 
LOO 
STX 
BSI 
BSC 



RR1 



OC 

LOO 

STX 

BSI 

BSC 



SMO 

10 

REJT,«-Z 

BLAST 

SENSE 

MAS 

NOTt.E 

CKBIT 

MECRC 
COT 



L PIO 
L CRCK 
L XIOMR 

1 2 

TIMEX 

L SENSE 
L MAS 
L CMORJ, E 
CKBIT 



MCNRJ 

RAO 

PRINT 



PROC CONTROLS 

BCH ON NINUS 

CHANNEL BLAST 
SENSE CSM 
SAVE OSM 
BCH ON BUSV 

NSC- BLAST FAILEB 



TELL MONITOR THAT A 
• CHAN BLAST COMING 
GIVE COMB REJECT 



USE TIMER SC 

SENSE OSM 

SAVE OSM 

BCH ON BIT IS 



C8MB REJECT FAILEB 

UPOATE PROC PROCESS 
USE PRINT ROUTINE SC 



I BUSV 



RETURN TO PRBGRAN 



sx 



PULSE TIMER ON •••**•**••••♦••• 



/OOOO 
1 3 
TINEX 

SENSE 

MAS 

2 

PULSE ,- 

MBITF 

RAO 

PRINT 

PULSE 



RETURN ADOR SE 

TIMER COUNT 

USE TIMING ROUTINE SC 

SENSE OSM 
SAVE OSM 

CK PULSE BIT 
BCH ON PLUS BR ZERO SX 
BIT FAILED TO CO OFF 
UPOATE PROC PROCESS 
USE PRINT ROUTINE SC 
RETURN TO PROG S* 



ERRl IN OSM #•••*•**•♦*•#•*•*•* 



/OOOO 
MERR 
RAO 
PRINT 



I ERRl 



RETURN AOOR SE 

N$G- BITS IN ERROR 
UPOATE PROC PROCESS 
TO PRINT OSM ERROR SC 
RETURN TO PROG SX 
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•270*250 
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•2706270 
•2706280 
•2706290 
■270*300 
•2706310 
•270*320 
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■270*340 
•2706350 
•27063*0 
•270*370 
8270*380 
82706390 
8270*400 
8270*410 
8270*420 
8270*430 
•270*440 
C27064S0 
•270*460 
•270*470 
■270*480 
■270*490 
•270*500 
•270*510 
•270*920 
•270*530 
8270*540 
82706950 
82706560 
82706570 
•2706580 
•270*590 
•2706600 
•2706*10 
«2 706620 
82706630 
82 '0*640 
•2706650 
•2706*60 
82706670 
8270M80 
•2706690 
82706700 
•2706710 
82 706720 
•270*730 
•270*740 
•270*750 
•270*760 
8270677 3 
8270*780 
8270*7*0 
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SYMBOL 


VALUE 


REFERENCES 


AODR 


0**3 


08*3, 08*0, 093F, 09** 


AGAIN 


0*E5 


09F2 


ALL 


0*3E 


0438 


ASK 


0*C7 


09CF 


BEGIN 


012C 


07FF.083S 


BLAST 


0904 


0A2E 


8SV 


0A20 


0A10 


BU1LB 


0B42 


0848 


BUILL 


09 3C 


093T 


BUILT 


0*39 


0*20 


BUSY 


0A12 


0A02.0A4F 


CHECK 


oas* 


0856,08*1 


CHREG 


0B9* 


088F 


CKBIT 


0A4F 


OA1F.0A3A.0A4S 


CKOCC 


095* 


0940 


CKSEN 


09E3 


0884, 09FB 


CMORJ 


0A49 


0A4* 


CNTL 


0*0* 


08AF,0939,093C,09SE 


COMB 


082B 


0824 


CONT 


0883 


0828,0830 


CONTX 


0886 


08S1 


CONT I 


09TS 


0902, 09*8, 095C, 09*0, 09*1, 0**4, 09*4,09*5, 049C0990, 
09A4 


C0NT2 


097E 




C0NT3 


o**a 


0959, 09SA,09SE,095F, 09**, 09*8, 09TE, 0992, 0493. Q99A, 
0998, 09AB 


CRCK 


0133 


0A3C 


DATA 


09TF 


08*5, OaTT, 0940, 0985 


DATA! 


OBFC 


0875, 08FE, 0900,092**09*0, 0*A1 


0ATA2 


OSFB 


0**8, 09A A 


BCC 


092E 


0924 


BCCMR 


090? 


0931,0933 


DONE 


0**T 


0954, 09*2 


DON? 


0981 


099E 


OPCMR 


0900 


0842, 0845, 0429, 094F 


OSN 


0A02 


09EC 


B8M12 


0*1* 


083* 


OVA 


081S 


0844, C9CB 


EOIT 


0813 


067C,0988,09*E,09C3,0*CA 


END 


012E 


07FF,0800 


EFA 


0808 




ERROR 


0130 


07FF 


ERM1 


0A*3 


0A03,0A04,0A05,0A0*,0AO7,0A08,0A09,CA0A,0A0B.OAOC, 
OAOO,OAOE,0A0F,OAll,0A6A 


FAKE 


08BC 


0833 


FALSE 


0833 


082C 


FIRST 


08&A 


08CA 


FOUND 


085C 


085* 


GO 


083a 


OAFE 


GBN 


oac* 


0885 


GOO* 


09C0 


09BA 


GOT 


0A4B 


0A39 


HERE 


090E 


0908 


ILF 


0806 




KEEF 


081B 




KFFOO 


0808 


089a, 092A.093A, 0950 


KNOW 


9»9F 


0888 


K0001 


080T 


OSaC, 0893, 0890 


KC006 


0808 


092F 


K0080 


0809 


0930 


K8000 


080A 


081E,082*,082E,08A4,09E* 


LBUSV 


08ED 


08E8 


LGOUT 


08F4 


08E7 


LOG 


012F 


07FF.08ES 


LOOP 


09A4 


09A7 
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100FA 


09A0 


0900 


tFA 


080T 




NAOOR 


090C 


0851 


NBITF 


0914 


09FA.0AM 


xausv 


090E 


0A11 


NCHK 


090 A 


08AS 


NCKRJ 


091E 


0A49 


NOCHS 


0920 


086T.0tT2.0941 


NERR 


0912 


0A64 


NERRC 


091C 


CA3T 
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0910 


08RC 


NLSCF 


0809 


0835.OB4E.OS58.OaCC.08EF.090t.090A 


HNINT 


0913 


08BA 


NOOE 


08F9 


08T0, OS T9, 0884,0880, 0923, 092E.093B. 09 4C ,0980,0*** 


WAR 


0916 


08BE 


HR0N6 


091A 


0A23 


NSC 


0SF6 


0SBF,0SC2.08E4 


NEXT 


08BF 


0885,0880 


KCXN 


080C 


09B1 


NOTE 


0A3T 


0A34 


POT 


0835 


0822.0S2A.0S32 


OUTl 


09CD 


09C5 


0UT2 


08EF 


OSEC 


FAR I 


081E 




FAROA 


08BE 


0820 


FENO 


OAFD 


0800 


FIO 


07FF 


083A.0A3A.0A4C 


FOT 


099F 


098C 


FRINT 


08E3 


0354,08AB,OBCS,0«EA,09FE,OA17,OA27.0A40,OASF.OA*S 


FIM.SE 


0AS1 


0A10.0AS9.0aA1 


FUT 


0943 


09i* 


RAO 


0801 


0840, 0853, 084 9, 08A9.08C3, 09*7, 09FC,0A19,0A2S,0A4B, 
0A50,0A6* 


REiCK 


080* 


0899, 089C089E 


RECST 


080E 


0848,094* 


RE61 


08FA 


0800, 0928, 094 8, 0952, 0958, 09*3, 09*» 


RE 62 


08FB 


0948,0950 


REJT 


0A3A 


0A2C 


REL 


0987 


0849, 0883, 08C0, 0803, 09C0 


REIOV 


0132 


07FF.09BC 


NEt 


09C2 


083F.08AC.09CB.0A19 


REOOV 


0131 


0TFF.O9C7 


RIO 


0800 




RTECK 


0800 


08C8.0A0O 


RTENO 


0802 


0808, 08D5 


RTO 


0838 


0806, 0807, 0B4F 


RTt 


0851 


0B4B 


SAVE 


080F 


09E8,09EA,09EE,09F0 


SCAN 


0823 


081C 


SENSE 


0908 


OBIT. 0880, 0S8A, 0880, 09F4,0A1B,0A30,0A42,0AS4 


SINS 


08E1 


0985 


SFSH1 


099* 


0987,0983 


SFSH2 


09A8 


0988,0984 


STAND 


0989 


0983 


START 


0120 


07FF.0SSA.0BCE.08F1, 0903, 090C 


STOSY 


09CF 


09C9 


SHO 


0802 


089F,08A6,08C*,0A29 


SMI 


0803 


083E,085C,086A,0444 


SH2 


0804 


0S*F,0921 


SH3 


0805 


0874,09SE,099F 


TERN 


080C 


099*,09A8,09BF,09CC 


TIMED 


0908 


09E0 


TINER 


08E2 


0906, 090E 


TIMEX 


0905 


087E,0eB8.09E1.0A41,0AS3 


TRV 


08E5 


08E0 


HAS 


08F8 


O819.O8S2.09F*,OA32,0A44,0AS* 


WRITE 


03AE 




¥RITX 


08AC 


0BA2 


CUTE 


28FEB6* 01NAV6* 04NOV64 


EC NO. 


415120 
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PARAGRAPH p 

1. PURPOSE 

2. REQUIREMENTS . . . . 1 

2.1 PROGRAM REQUIREMENTS 

2.2 ECUIPMENT REQUIREMENTS 

3. USE PROCEOURE JA 

3.1 LOADING PROGRAM 

3.2 PROGRAM OPERATION 

3.3 HALTS 

3.4 TERMINATION 

4. PRINTOUTS . . t 

4.1 STATUS MESSAGES 

4.2 COMMAND MESSAGES 

4.3 ERROR MESSAGES 

5. COPMENTS _ ^ 

5.1 GENERAL DESCRIPTION 

5.2 COMMENTS FOR FUNCTION 

5.3 COMMENTS FOR FUNCTION 1 

5.4 COMMENTS FOR FUNCTION 2 

5.5 COMMENTS FOR FUNCTION 3 

6. APPENDIX 

6.1 EDIT PROCEDURE 



PURPOSE 

THE DIGITAL OUTPUT FUNCTION TEST IS DESIGNED TO EXERCISE AND TEST 
THE RELIABILITY OF THE OUTPUT REGISTERS IN ALL MODES. 

REQUIREMENTS 

2.1 PROGRAM REQUIREMENTS 

THIS PROGRAM MUST RUN UNOER CONTROL OF THE DIAGNOSTIC MONITOR. 
TME DIAGNOSTIC MONITOR PROGRAM USES 2,047 STORAGE WORDS, ANO THIS 
PROGRAM USES 0768 STORAGE WORDS. 

THIS PROGRAM MUST HAVE EDIT CARDS AODED AT THE END OF THE DECK. 
SEE EDIT PROCEDURE, PARAGRAPH 6.1 . 
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B. 
C. 

D. 



2.2 EQUIPMENT REQUIREMENTS 

A. EQUIPMENT REQUIRED BY DIAGNOSTIC MONITOR, PLUS 
MINIMUM OF ONE DIGITAL OUTPUT CONTROL I OOC J, 
MINIMUM OF ONE DIGITAL OUTPUT ADAPTER, 
AT LEAST ONE OF THE FOLLOWING GROUPS, 

1. ELECTRONIC CONTACT OPERATE ( ECO ». 

2. PULSE OUTPUT ( PO ) . 

3. REGISTER OUTPUT < RO I. 

E. IF CYCLE STEAL IS TO BE CHECKED, A DATA CHANNEL MUST BE AVAILABLE 
USE PROCEOURE 

3.1 PROGRAM LOADING 

pJoCeSuRE^°* D,NC PR ° CEDURE AS D «CRIBED IN THE DIAGNOSTIC MONITOR USE 

3.2 PROGRAM OPERATION 

STANOARO MONITOR OPERATING PROCEDURES APPLY. 

THESE PROCEDURES ARE SUMMARIZED HERE. SEE DM USE PROCEDURE FOR 

DETAILS. 

1. CLEAR STORAGE 

2. LOAD DIAGNOSTIC MONITOR 

3. SELECT MOOE OF EXECUTION 

4. SELECT MONITOR CONTROL OPTIONS 

5. SELECT PROGRAM OPTIONS FROM, 

TABLE PROGRAM CONTROL FUNCTION. 

TABLE 1 REGISTER NUMBER 

TABLE 2 MODE OF OPERATION 

TABLE 3 DATA PATTERN 

6. INSTRUCT MONITOR TO EXECUTE 

7. SELECT REGISTER NUNBERS PER TABLE 1. 
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TABLE 



CONTROL FUNCTION 



• SENSE/PROGRAM • 

• 01234567* 

• • 
•00100111* 



1. SFT FUNCTION 00 IN SENSE/PROGRAM SWITCHES AND I. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

3. SET DESIRED CONTROL OPTIONS IN DATA ENTRY SWITCHES 0-15. 

4. PRF.SS CONSOLE INTERRUPT. 



DATA ENTRY SWITCHES 



• DESCRIPTION 



• 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 • 

• 

• . • 1.. TERMINATE PROGRAM 

• • X USE COMMAND REJECT. SEE NOTE 1. 

" I FORCF PRINTOUT (SEE SECT. 5.21 

• 

• NOTE 1. MUST 8E RUNNING UNDER DC CONTROL WITH EXTERNAL SYNC. 



NOTE 1 

CO NOT SPECIFY REGISTER NUMBERS (TABLE 1) 
UNTIL AFTER MONITOR IS INSTRUCTED TO EXECUTE 
THIS PROGRAM. 



TABLE 1 REGISTER NUMBER 

• •••••••••••■••••at* |. SET FUNCTION 01 IN SENSE/PROGRAM SWITCHES ANO 1. 

• SENSE/PROGRAM • 2. SET PIO IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

• 01234567* 3. SET RECISTER NUMBER IN DATA ENTRY SWITCHES 1-7 AND 9-15. 

• • 4. PRESS CONSOLE INTERRUPT. 

• C 1 1 1 1 1 • 

• • 
*•••*•*••••••••••••*••«•«»«*•*•••••••••••••*#•••••••••*••••••••*••••»••«••###•#• 

• DATA ENTRY SWITCHES • DESCRIPTION • 

• 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 • • 

• • 
•OXXXXXXXOO 0.. REGISTER 1 NUMBER • 
•OOOOCOOOOX X X X X X X.. REGISTER 2 NUMBER • 

• • 
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SENSE/PROGRAM • 
1234567* 



• 

• 1 



10 111* 



TABLE 2 MODE OF OPERATION 

1. SET FUNCTION 10 IN SENSE/PROGRAM SWITCHES ANO 1. 

2. SET PIO IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

3. SET MODE OF OPERATION IN OATA ENTRY .SWITCHES 0-15. 

4. PRESS CONSOLE INTERRUPT. 



DATA ENTRY SWITCHES • DESCRIPTION 

1 2 3 4 5 6 7 6 9 10 11 12 13 14 15 • 



. . . 1.. OATA CHANNEL CONTROL 

. . 1 SIN6LE REGISTER 

. 1 USE EXTERNAL SYNC 

1 USE 20 MSEC DELAY 



USE SINGLE DATA PATTERN (DOES 
NOT COMPLEMENT PATTERN). 

NOT USED 

NOT USED 

USE PULSE OUT CONTROL (SEE NOTE 2) 



NOTE 2 

ALL PULSE OUT REGISTERS ARE RESET WHEN A XIO CONTROL 
COMMAND IS GIVEN. BE SURE ALL CUSTOMER'S DEVICES ATTACHED 
TO PULSE OUT REGISTERS ARE DISCONNECTED BEFORE USE PULSE 
OUT OPTION. 



• SENSE/PROGRAM • 

• 01234567* 

• • 

• 11100111* 



TABLE 3 DATA PATTERN SELECTION 

1. SET FUNCTION 11 IN SENSE/PROGRAM SWITCHES AND 1. 

2. SET PID IN SENSE/PROGRAM SWITCHES 2 THROUGH 7. 

3. SET OATA PATTERN IN DATA ENTRY SWITCHES 0-15. 

4. PRESS CONSOLE INTERRUPT. 



• DATA ENTRY SWITCHES • DESCRIPTION 

• 1 2 3 4 5 6 7 8 9 10 11 12 13 14 IS • 



• XXXXXXXXXX 



OATA PATTERN OF YOUR CHOICE IDATA II 



3.3 PRGGRAP HALTS 

THIS PROGRAM HAS NO HALTS 

3.4 PROGRAM TERMINATION 

THE PROGRAM MAY BE TERMINATED THRU NORMAL MONITOR CONTROL. 
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«. PRINTOUTS 

«lL0"w!* M " ILL HAVE ° NE F ° RHAT F ° R ITS MESS "ES WHICH WILL LOOK LIKE THE 
PIO MID RIO RAD MSG DSW MODE REG1 REG2 0ATA1 0ATA2 

THE FIRST 4 ARE STANDARD MONITOR PRINT OUTS. RAD WILL BE THF AnnPF« nc xuc 
PRINTOUT INSTRUCTION. MSG IS A CODE MESSAGE IN HEX. ADDRESS OF THE 

OSW IS THE DSW AT THE TIME OF THE PRINTOUT. 
MOCE IS THE TYPE CF OPERATION BEING PREFORMED. REFER TO TABLE 2. 

REG 1 IS THE REGISTER THAT IS BEING CHECKED 

REG 2 IS THE ALTERNATE REGISTAR USED TO COMPARE REG 1 

KiJ 2 is Z ReIeRsToF^A^ "^ " B " S " ITCH F " NC "° N "' 
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4.1 



STATUS MESSAGE 



27C0 EC07 C001 RAO BADO 

CYCLE STEAL BUSY, DSW BIT 4 SHOULD NOT HAVE BEEN ON. 
27C0 EC08 C001 RAC DOCB 

STUL Sn!"™ * 6L * ST CHA " NEL C0W, * ND ™ E BUSY B,T ' N TW DSW IS 
27C0 6C09 C001 RAD DOCC 

ll.ltl ^ ANNEL IS 8USV AHD * SECOND WRITE COMMANO IS GIVEN A COMMAMn 

ABoirpSl'NToCT 1 ^ G^EnT^ ™ " INTERRUpV " '«" FAIlY?!^ 



5. COMMENTS 



••'CAUTION** 



27C0 ACOl COOl RAO CCCC 

It'^'runnIng! 5 FCR ™ E " S ° HE MAV KN0H THe STATUS 0F PR0GRAM WH,LE 

4.2 COMMAND MESSAGES. 
2700 COOl COOl RAD DOAO 



WHEN RUNNING THIS DIAGNOSTIC, BE SURE THE REGISTERS ARF nht 
CONNECTED TO A CUSTOMER OEVICE. IMPRESSING MACHINF RfL? 
BUTTON WILL SET ALL DIGIT OUTPUT «""«" T S ZErS! 



BE SURE YOUR REGISTERS ARE AVAILABLE FOR TESTING. 



THIS MESSAGE IS A COMMAND FOR THE OPERATOR TO ENTER TWO REGISTER 
NUMBERS TO BE USED IN TESTING DO. REG1 WILL BE ENTERED IN BIT 
SWITCHES 1 THRU 7 ANO REG 2 WILL BE ENTERED IN BIT SWITCHES 9 THRU 15 
OF FUNCTION 01. IF ONLY ONE REGISTER IS TO BE USED IT MUST BE ENTERED 
tS A^CUST'c'E^-DEvyc" " " ^ ™ E REG,STERS ™" U5E^VnOt\ T ,E0 D 



4.3 



ERROR MESSAGES. 



27C0 E001 COOl RAO ADOO 

THIS IS AN INDICATION THE CHANNEL WAS BUSY WHEN THE OSW WAS SENSED. 
THIS IS A NCRMAL PRINTOUT WHEN EXTERNAL SYNC IS USED. 56N5ED - 

27C0 EC02 COOl RAD FA10 

I«^„!! ,NT0UT ,M)IC * TES * FALSE INTERRUPT. THE MONITOR CAME TO THIS 
PROGRAM BUT NONE OF THE BITS THAT CAUSE AN INTERRUPT WERE SET. 

27C0 EC03 COOl RAO BIEE 

BIEE STANDS FOR BITS IN ERROR AND INDICATES AN UNUSEO OSW BIT BECAME 
ACTIVE PR CYCLE STEAL BUSY WAS ON DURING EXTERNAL SYNC. B£C *" E 

27C0 EC04 COOl RAC DOBF 

THIS IS AN INDICATION THAT SOME OSW BIT CAN NOT BE RESET. THE 
PROGRAM WILL GO TO END. 

27C0 EGOS COOl RAO OCAE 

THIS PRINTOUT INDICATES THERE IS A PARITY ERROR IN THE CATA PATTERN 
SENT OUT ON THE BUS. 

27C0 EC06 COOl RAO 1CE0 

AFTER A WRITE COMMAND IN DC MODE, AN INTERRUPT WAS MISSED. THE 
PROGRAM WILL CONTINUE AFTER THIS PRINTOUT. 



5.1 GENERAL DESCRIPTION 

nI?i2*^ U 3T C0NSISTS OF * HAINLINE ROUTINE THAT WILL CHECK TO 
?H T «r nf E ? ?°* V * RI ° US SUBROUTINES. THE PROGRAM BEGINS WITH 
THE SELECTING OF TKO REGISTERS TO BE TESTED. IF ONLY OI.E RFfKIf it 
TO BE TESTED, THE RFGISTER NUMBER IS ENTERED TWICE THF nif* pItSc^ 
IS ALTERNATING BITS OFF AND THEN ON. THli MAY BE CHANGED BY %«««? 
r V Si! R o PATTERN ™ RU F ^CTION 3. THE START NG MODE IS DAT, PROCESS 
POTION ^SEe'taB^T" ADDRESS ' ™ E "° 0E " A¥ « '"InGeTthIu 

THE MAINLINE CHECKS TO DETERMINE IF THERE HAS BEEN A CHANrF ■» 
REGISTER ADDRESSES, MOOES CF OPERATION, OR DAtSpAtJeRN 5f THERE IS 
A o^^ ANCE ' THE APPROPRIATE SUBROUTINE WILL UPDATE THE CHANGE tV 

A WRITE COMMANO IS GIVEN ANO IF IN DCC MODE THE PROGRAM Will n«=i *v 
WAITING FOR AN INTERRUPT. AFTER THE INTERRUPT? IT WILL a* rL£cn 

f £\n*?Zl AN ° ™ EN DETER «'» E IF THE PROGRAM S TO BE TERHInItED? OR 
IS TO LOOP THRU ANOTHfcR TIME. ireniMitUi UK 

5.2 COMMENTS FOR FUNCTION 

ADDITIONAL COMMENTS FOR THE FOLLOWING DATA ENTRY SWITCHES FOLLOW. 
SW " CCMMANd! R ° GRAM T ° TERMINATE RATHFR ™* N GIVE ANOTHER WRITE 

SW 9 USEO TO CAUSE A PRINTOUT OF THE OSW, MOCE OF OPERATION 

REGISTERS, AND PATTERN USED. THE PR NTOUT WILL OCCW^NLV 
ONCE FOR EACH SETTING OF THE SWITCH. 

5.3 COMMENTS FOR FUNCTION 1 

IH E t R !2I S I ERS T ° BE TESTE0 * RE ENTERtO THRU THE DATA ENTRY SWITCHES 

h"«"s d T t R °selec R ? re!?s^r SELEC L RE6,ster l ' AND wJ«mI«" wfc 

rMFricn rue «5?ef2I REG,STER *• 'F ONLY ONE REGISTER IS TO BE 
CHECKED, THE REGISTER NUMBER IS ENTERED IN BOTH SETS OF SWITCHES. 
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5.4 COMMENTS FOR FUNCTION 2 

UNLESS A MOOE SETTING IS ENTERED THE PROGRAM WILL SET UP FOR DPC 
CONTROL USING RANDOM NCCE. THE MOOE MAY BE CHANGED BY USING THE 
FOLLOWING DATA ENTRY SWITCHES UNOER FUNCTION 2, 

SW IS DATA CHANNEL CONTROL. DCC IS ON CYCLE STEAL AND OPERATES AT 
A VERY FAST SPEED. OFTEN IT WILL NOT SHOW A GOOD PATTERN. 

SW 14 IF THIS SWITCH IS OFF, IT IS IN RANDOM MOOE. REGISTER 1 IS 

USED AND THEN REGISTER 2 AND BACK ANO FORTH. WITH THIS SWITCH 
ON, REGISTER 1 IS USED AND THE PATTERN SENT OUT SEVEN TIMES, 
ANO THfcN REGISTER 2 IS USED IN THE SAME MANNER. 

SN 13 WITH THIS BIT SET ON, THE CHANNEL WILL BECOME BUSY BECAUSE 

EXTERNAL SYNC IS USED AND IT IS NOT CONNECTED SO IT WILL NOT 
RECEIVE A PULSE. SINCE THE CHANNEL IS BUSY, AN ERROR MESSAGE 
E001 WILL BE PRINTEO. A CHANNEL BLAST OR COMMAND REJECT WILL 
BE EXECCTEO DEPENDING ON BIT 10 FUNCTION 0. 

SW 12 WITH THIS BIT ON THE PROGRAM WILL USE A MINIMUM DELAY OF 

20 "S. ANC WITH OTHER PROGRAMS OPERATING IN OVERLAP IT WILL 
BE LONGER. THIS DELAY WILL NOT BE VERY USEFUL ON DCC BECAUSE 
Or CYCLE STEAL. 

SW 11 NORMALLY THE CATA PATTERN IS REVERSED SO THE SHIFT CAN BE 

SEEN ON THE SCOPE. WITH THIS SWITCH ON, THE SAME DATA PATTERN 
WILL BE SENT UUT WITH EACH WRITE COMMAND. 

SW B THIS BIT IS USED TO CAUSE A PULSE OUTPUT. IT IS USED IN 
IOCC CONTROL WORO. 

5.5 COMMENTS FOR FUNCTION 3 

ALL BIT SWITCHES ARE USED TO SET UP THE OATA PATTERN THAT IS READ 
OUT TO THE REGISTERS SELECTED. 
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DDEF STANDS FOR DEVICE DEFINITION EDIT FIELD. IT INCLI/DES: 



THE INTERRUPT LEVEL ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION 00-17) 

THE ILSW BIT POSITION ASSOCIATED WITH THIS DEVICE (USE HEX NOTATION 0-F)' 

THE CHANNEL ASSIGNED TO THIS OIVICE (0-8). .F THIS IS A DPC DEVICE) PUNCH AN *F* IN THE CARD COLUMN. 

1. AN *E* IN COLUMN I. 

2. THE PI D FOR THIS PROGRAM (COL 2-3). 

3. A TERMINATOR WORD OF *FFFF' (COL. 7-10). 



THE LAST EDIT CARD IS THt *END EDIT CARD" 



THE INFORMATION IN THIS CARD INCLUDES: 




CARD CONTAINS THE DDEF FOR THE D.A.O. FEATURE. 

CARD END IS THE * END EDIT CARD''. PUNCH EXACTLY AS IS SHOWN. 



DATE 
EC 



28 FEB 66 
M5120 



DATE 
EC 



I MAY 66 
M5I20A 



BATE 01JU166 
EC 415178 



DATE Ok NOV 66 
EC 415233 



PROG ID O82F-* 
PAGE 5 



